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A GERAgAO DO CURSOR 
NOMSX 



RENATO DA SILVA OIJVEIRA 



Alguns micros apresentam na tela um cursor piscantc, cuja 
frcqucncia do acender e apagar podeser regulada atravcs da altc- 
rac3o do conteiido de alguma variavel do sistema. Nos micros MSX 
o cursor e gerado de modo fixo, mas pode ser alierado atravds de 
software para pi scar. 

Normalmcnte, o processo pelo qual o cursor 6 gerado nos MSX 
cnvolve basicamente seis variaveis do sistema: 

coordenada horizontal do cursor. 

coordenada vertical do cursor. 

rascunho para armazenar o ca- 

ractere sob o cursor. 

rascunho dc 40 bytes. 

indicador de cursor "ligado" (0) 

ou "desligado" (255). 

indicador de cursor cheio ou pela 

metade. 



CSRX 


em &HF3DD 


CSRY 


em &HF3DC 


CURSAV 


em &HFBCC 


LINWRK 


em &HFC18 


CSRSW 


em &HFCA9 


CSTYLE 


cm &HFCAA 



O cursor c gerado apcnas quando a variavel CSRSW content 
zero. 

Para gcrar o cursor, o caractere apontado na tela pclas variaveis 
CSRX e CSRY tern seu cddigo copiado da VRAM para a variavel 
CURSAV (lembre-se de que quando a tela esta "limpa", na vcrdadc, 
ela esti repleta de caracteres nulos, de cddigo 0). 

A scguir, seu desenho (8 bytes) 6 lido da VRAM e copiado para 
a variavel LINWRK. Se CSTYLE for 0, os 8 bytes s3o invertidos, 
se n3o, apcnas os 4 bytes infcriores o s3o. 

Finalmcntc,os8 bytes allerados em LINWRK sSocopiados para 
a posicao do cursor (codigo 255) na tabela de caracteres da VRAM 
e codigo 255 6 gravado na tela, exatamente na posicao apontada por 
CSRX e CSRY. 

Apenas a tftulo dc ilustracao, vamos supor que o caractere sobre 
o qual o cursor est6 posicionado e a lctra "A", na linha 10 c coluna 
15 da SCREEN 0. Se CSRSW=0 e CSTYLE=0, o processo de 
geracao do cursor e iluslrado pela seguinte sequencia (figuras 1 a 5). 



Figura 1 - CARACTERE "A" NATELA 



Coluna 15 — 






Linha 10 







<-+ Codigo 
&H41 

















Figura 2 - CONTEUDO DE CURSAV 



CURSAU 



Figura 3 - DESENHO DO "A" NA VRAM 



OGOOOOGO 


OOIOOOOO 


01010000 


10001O00 


10001000 


1111 1000 


10001000 


10001000 



Figura 4 - DESENHO APOS COPI A E IN VERS AO EM LINWRK 
E DESENHO DO CURSOR NA VRAM 



L INURK 



111111 
1 101 1 1 
101011 
01 1 101 
011101 

GG0001 

01 1 101 
01 1 101 



Figura 5 - CURSOR NA TELA 



Coluna 15 



Linha 10 




4 CPU 



A Iistagcm da figura 6 foi digilada usando-sc o editor de textos 
MSX WRITE. Voce podera usar qualqucr outro editor que grave os 
dados em ASCII, como o SCED (ou MED, na versao mais rcccntc), 
o WordStar, o Deletra, etc. Cuidado se voce for usar o Tass Word 
original, pois seu formato dc gravacao e peculiar. Existem, 
entretanto, versoes adaptadas que tambem gravam cm ASCII. 
Lembre-se ainda que os comentarios n3o precisam ser digitados! 

Uma vez digitado o texto do programa, leremos que compild-lo. 
Ele csui escrito de modo a ser compilado dirctamente pelo M80 da 
Microsoft. Entretanto, se voce quiscr, podera adapti-lo facilmente 
para uso com o Coral Simple ASM (Cocar c Mega Assembler, nas 
"vers5es" nacionais). Para tanto, basta numcrar as linhas do 
programa, substituir a pscudo-instrucao ".Z80" por "ORG 
0D000H" e acrescentar os dois pontos (":") antes das pseudo- 
instrucocs "EQU". 

Para fazcr a compilacao com o M80, grave o programa com o 
nome "CURSOR.MAC" e comande, a partir do MSXDOS: 
A>M80 =CURSOR 
A seguir, se tudo corrcu bem, use o L80 com a scguinlc sintaxe: 

A>L80 /p:dOOO,cursor,cursor/n/x/e 
Finalmenlc, use o comando BSAVE do MSXDOS TOLL's: 

A>BSAVE cursor.hex cursor.bin 
Agora, experimente comandar: 

A>dir cursor.* 
Voce devera ler em disco quatro arquivos: 
CURSOR.MAC 
CURSOR.REL 
CURSOR.HEX 
CURSOR. SIN 
Se quiscr, apague os arquivos tcrminados em ".REL" e em 
".HEX", preservando os outros dois. 

O arquivo "CURSOR.BIN" e o programa cm Linguagem de 
Maquina, para ser carregado e executado atravds do BASIC. 

Para fazer a compilacao com o Coral Simple ASM, basta 
comandar: 

>AOU 
Para sal va-lo cm disco, va para o BASIC com o comando ">B A" 
e comande: 

BSAVE"CURSOR.BIN",&HD000,&HD080 
Agora, com o programa em L.M. ja carregado na memoria, 
execute-o com os comandos: 

DEFUSR=&HD000:POKE0,USR(5) 
Observe que, se tudo corrcu bem al€ aqui, o cursor devera cstar 
piscando. Experimente alterar o valor do parametro passado na 
funcao USR. Ao inv6s de 5, use outros valorcs. Esse paramctro 
regula a frequenci do "acender" e "apagar" do cursor. Sc voce passar 
o paramctro 0, o cursor vollard ao cslado normal, sem piscar. 

Experimente tambem levaro cursor piscando para a ultima linha 
da tela com as teclas de setas. N3o sc asustc sc ele parar de piscar, 
pois 6 isso o que deve ocorre semprc que ele csliver na ultima linha. 
Teste tambem os comandos "KEY ON" e "KEY OFF". 

Agora que ja temos o progrma digitado e funcionando, vamos 
tentar entendcr a listagem em assembly. Antes de mais nada, tente 
acompanhar os comentarios na propria listagem. 

A primcira parte do programa recebe o parametro passado pelo 
BASIC, testa se ele 6 urn intciro e o insere na variavel VELOCI. A 
seguir, se o parametro for zero, o hook HKEYI 6 reslabelecido com 
urn RET (0C 9H), desligando assim a rotina para piscar. Se o para- 
metro for urn intciro diferente de e entre I e 255, o hook HKEYI 
e apontado para a rotina INICIO. 

A rotina INICIO sera executada sempre que uma interrupcao 
ocorrer. Inicialmente todos os registros do Z80 s3o salvos e 
urn teste e realizado para saber sc o cursor esta na ultima linha lilil 



da tela. Scestiver,a"piscada"docursor6dcsligado. Isso efei to para 
evitar complicacies com a rotina de SCROLL da ROM. Semprc 
que urn SCROLL for executado, se o cursor estiver piscando, pode- 
r3o ocorrer efeitos estranhos no video. Podc-se evitar isso dc varias 
formas mas, para nao tomarmos o programa muito grandc, 
optamos por simplesmentc dcsl igar a "piscada" quando o SCROLL 
ocorre. Note que, quando as teclas de funcoes sao mostradas, a 
ultima linha da tela 6 a vigesima tcrccira e a variavel CNSDFG 
contcm o valor &HFF. 

O trccho scguinte do programa verifica se esta no momento dc 
inverter o cursor ou nao. Isso 6 feito comparando o valor de 
CONTAD com o valor de VELOCI. Sc foremm iguais, a invcrsSo 
do cursor c rcalizada e o valor de CONTAD 6 zerado. Caso 
conlrario, a variavel CONTAD e incremeniada c a execucao passa 
para a rotina de rctorna. 

A rotina de inversao 6 muito simples, invertendo, apenas cada 
urn dos bytes do desenho do cursor (codigo 255) na tabela de 
caractercs da VRAM. Note que o valor 2040 e a posic3o relativa do 
primeiro byte do cursor dentro da tabela e a variavel TXTCGP 
aponta para o infcio da tabela da VRAM. A rotina LACO e repetida 
8 vezes e 6 bastante simples. Quando cla c executada, B contem o 
valor 8 e HL aponta para o endereco da VRAM com o primeiro byte 
do desenho do cursor. As rotinas RDVRM e WRTVRM, apesar de 
existirem no BIOS, foram rcfeitas e funcionam de modoanalogo: 
o par HL deve apontar o endereco da VRAM e o byte lido ou 
gravado deve estar no rcgistro A. 

Sendo assim , o L ACO apenas le cada um dos 8 bytes do desenho 
do cursor, os inverte e os grava novamente na mesma posic3o. 

Aos amigos ex-usuarios do TRS-80, lembramos mais uma vez 
para que atcntem a versatilidade do MSX! 

Se voce esta intcressado no efeito do cursor piscando mas nao 
quiz se arriscar "as "complicacoes" com a compilacao, "linkagem" 
e binarizacao, basta digitar e rodar o programa em BASIC lislado 
na figura 7. Ele gera a rotina em linguagem dc maquina c a executa, 
passando o parametro 5 na func3o USR. 
FIGURA 7 - PROGRAMA EM BASIC 



1000 screen e : width 40 : key off 


1010 FOR F=JHD000 TO 8HD080 


1020 READ Ai : POKE F,vAL("8H"-tAi) 


1030 NEXT F : CLEAR 200,J,HD000 


1040 DEFUSR0=8HD000 : POKE 0,IJSR0(5) 


1050 ' 


1200 DATA F3,FE,02,C0,23,23,7E,32 


1210 DATA 7F,D0,FE,00,20,07,3E,C9 


1220 DATA 32,9A,FD,18,0B,21,22,D0 


1230 DATA 22,9B,KD,3E,C3,32,9A,FD 


1240 DATA FB,C9,F3,D9,3A,DE,F3,E6 


1250 DATA 01,47,3A,DC,F3,80,FE,18 


1260 DATA 28,27,21,7F,D0,3A,7E,D0 


1270 DATA BE,28,06,3C,32,7E,D0,18 


1280 DATA 18,2A,B7,F3,0i,F8,07,09 


1290 DATA 06,08,CD,5B,D0,2F f CD,69 


1300 DATA O0,23 r 10,F6,3E,00,32,7E 


1310 DATA D0,D9,C9,7D,D3,99,7C,E6 


1320 DATA 3F,D3,99,CD,7B,D0,DB,98 


1330 DATA C9,F5,7D,D3,99,7C,E6,3F 


1340 DATA F<S,40,D3 T 99,CO,7B,D0,F1 


1350 DATA D3,98,C9,E3,E3,C9,00,05 


1360 DATA 00, 58, 53, 57, 20, 52, 53, 4F 



Renato da Silva Oliveira 6 diretor da XSW Publicacoes e 
Planejamenlo e Sistemas Ltda e an tor de varies livros sob re 
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Note que quando as variaveis CSRX ou CSRY forem alieradas, 
forcando a mudan^a de posicSo do cursor, o caractere armazenado 
em CURSAV e repassado para a sua posicSo original na tela, 
restabelecendo assim o seu aspeclo antes da formacao do cursor. 

Como pudemos notar, n3o existe um desenho "fixo" para o 
caractere cursor nos micros MSX. Seu desenho 6 scmpre redefinido 
para apreseniar o inverso do caractere sobrc o qual ele se encontra. 

Agora vamos ilustrar um processo pclo qual podemos interfcrir 
na formacao do cursor.Para isso lercmos que recorrer ao uso dc um 
hook da rotina de interrupcao do micro. O primeiro hook chamado 
pela rotina de interrupcaoc o HKEYI, em &HFD9A. Vamos aponta- 
lo para um pcqucno programa em L.M. que vai alterar a formacao 
do cursor. 



Observe a listagem da f igura 6. Ela apresenta a nossa rotina com 
alguns comentarios sobrc seu funcionamento. 

Conv6m tcr em menle que ela 6 bastante espeeffica, funcionando 
apenas na'SCREEN 1 e ainda com uma restricao para a ultima linha 
da tela. 

Existem outras formas mais rapidas, mais curtas e mais 
genericas para se produzir o mesmo efeito, usando algumas rotinas 
que ja existem prontas na ROM do micro. Preferimos, entrelanto, 
dar mais atencao ao aspecto ilustrativo que ao dc eficiencia e 
optamos pela rotina ora aprescntada. 

Vamos ver inicialmente como devc scr gerado o programa em 
L.M. a parlir da listagem em assembly da figura 6. 



Figura 6 - LISTAGEM EM ASSEMBLY 



PROGRAMA PARA CURSOR "PISCANTE" 
FMEWO A INUER5A0 (R.S.0.-B9) 
))> Sonente pan a SCREEN • ((< 



lACO: 



;conpilacao en assenbly 280 



LD 


BC2M 


ADD 


HL.BC 


LD 


B,8 


CALL 


ROURM 


GPL 




CALL 


urtvrm 


INC 


HL 


DJH2 


LACO 



;carreya HC ton 2jj»B linicio do caractere cursor na tabela) 

;aponta HL para inicio do caractere cursor na VRAM 

;carrega B tcontador do LACO) cm 8 

;le un bate do despnho do cursor 

jinverte o byte lido 

;grava o byte invert ido 

; increment a HL 

Tdecrenenta B e repete o LACO se ele nao for zero 



; Variaveis do sistena e nooks 



1XTCGP E«U BF387H 

CSRY EW 0F30CH 

CNSOFG ESU 0F3OEH 

HKEYI EOU «FD9AH 



Dl 

CP 2 

RET HI 



m 

INC 

LD 

LD 

CP 

JR 

LO 

LD 

JR 



HL 

HL 

A.(HL) 

(VELOCD.A 

9 

NZ.SETHOK 

«,»C9H 

IHKEYD.A 

5EIH01 



5ETH0K: LD HI, INICIO 

LO IHKEIltll.HL 

LD A.BC3H 

LD (HKEYI),* 

;eihoi: Ei 

REI 



INIC10: 01 
EXX 

LO A.iCNSDFG) 

AND 1 

LD B.A 

LD A. (CSRY) 

ADD A.B 



CP 
.ID 

LD 

LD 

CP 

JR 

INC 

LD 

JR 



24 

Z, RETORN 

Hl.VELOCI 

A,(MNTAD) 

(HL) 

Z, INVERT 

A 

(CON! AD), A 

RETORN 



LO A, ft rcarrega no acunulador 

LD (CONTADI.A ;zera o contador 



;imcio da tabela de caracteres na VRAN RETORN: EXX 

iposicao vertical do cursor p^j 

nndicador de nostra (0) ou nao nostra (255) tecias de funcoe 1 . . 
iprmeira hook de interrupcao 



;restabelece ns renistradores 
jretorna 



: Rotina para ligar ou desligar 



idesabil ita a interrupcao 
[venfica se paranetro e inteiro 
iretorna se nao for 

;apoma HL para o paranetro passado 

tcarrega paranetro no acunulador 
jcarrega paranetro cono VELOCIdade 
ivenfica se vetocidade e zero e 
;se nao for, liqa a rotina con a book 
;nas se for, desliga a rotina na hook 



laponta hook para a rotina 



;habi]ita a interrupcao 
;retorna para o BASIC 



Rotina da interrupcao 



;desabilita a interrupcao 
;salva todos os registradores 
;venfica se as tecias de funcoes estao na tela e 
;se estiveren, carrega o acunulador con 1, se nao, con G 
;carrega B con n acunulador 

icarrega a coordenada vertical do cursor no acunulador 
:sona coordenada vertical con A (tecias ausentes) ou 1 
(tecias presentes) 

iverifica se o cursor esta na ultma linha da tela 
;e se est'ver , retorna 

:aponta HL para a VELOCIdade 

;carreqa contador no acunulador 

:conpara velocidade con contador e 

;se iguais, inverte o cursor 

;nas se nao, >ncrenenta o contador 

;e 

iretorna 

:aoonla HL oara imcio da tabela de cararteres da VRAM 



Le o endereco apontador por 


«. 


na VRAN e o 


devolve en A 






DVRH: LD 


ft, I 


;prepara VDP para ler o 


OUT 


HWH1.A 


; endereco apontado em 


LD 


fl,H 


jHL na VRAM 


AND 


•3FH 




out 


(099H>,A 




CALL 


TEHPO 


;esptra tetpo para o VDP 


IN 


A,<»98H> 


;le o byte da VfiAfl 


RET 




jretorna 


Grava o byte 


do acunulador no 


endereco da 


VRAM apontado por HL 


YRTVRN: PUSH 


Ar 


;salva o byte 


LD 


A,L 


;prepara o VDP para gravar 


OUT 


(99H),A 


:■:■ byte no endereco da VRftH 


LD 


A,H 


upontado por HL 


AMI 


3FH 




OR 


4*H 




OUT 


(99HI.A 




CALL 


TENPO 


fespera tenpo para d VDP 


POP 


AF 


jrec'ipear o byte 


OUT 


(9BH),A 


;grava o byte 


RET 




; retorna 


; Tenpo para a 


VDP 




TEMPO: EX 


(SP),HL 




EX 


ISPI.HL 




RET 






: Variaveis dc 


prograna 




CONTAD: DEFB 


e 


;contador de tnterrupcoeG 


VELOCI: DEFB 


5 


;nuiero de intermpcoes para 
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NOVOS CARACTERES 
EM SCREEN 1 



SILVIO CHAN 



Tem havido um grande aumento no numero de programas, 
principalmente jogos , desenvolvidos exclusivamente em 
SCREEN 1 . Isso se deve "as facilidades ofcrecidas por cssa tela, 
que antes era renegada a um piano inferior, como a possibilidade de 
se redefinir totalmente o conjunto de caracteres e de colorir cada um 
dos octetos (grupos de oito caracteres) com cores distintas. A16m 
disso, a morosidade da tela SCREEN 2 em relacao a producao de 
graTicos mais sofisticados atrav£s do BASIC MSX tambdm con- 
tribui para a afirmacao da SCREEN 1 . 

Este artigo 6 uma continuacao do "PROGRAMACAO 
GRAFICA EM SCREEN 1", que foi publicado na revista CPU 
numero 2. 

O meu objetivo aqui 6 demonstrar aos leitores que com uma 
simples rotina em BASIC e possivel alterar o descnho dos caracteres 
da SCREEN 1 para padrOes mais compaifvcis com os programas 
onde scr3o utilizados. Embora a alteracao dos padroes dos ca- 
racteres possa ser feila atraves do programa redefinidor apresenlado 
no artigo anterior, com a vantagem de podermos redefinir os 
caracteres para quaisquer novos padroes, o m6todo de redefinicao 
por rotina tern, por sua vez, a vantagem de ocupar apcnas a mcm6ria 
necessaria para armazenara rotina, enquanto o redefinidor precisa 
de memoTia para guardar todo o novo conjunto de caracteres, isto 6, 
dois Kbytes. Logo, a vantagem da rotina redefinidora 6 muito bem 
vista por quem faz programas extensos e precisa de alterar o padr3o 
dos caracteres. 

Para se criar uma rotina 6 preciso, al6m de conhecer a eslrutura 
da VRAM, tambdm ter conhecimentos sobre as tabelas verd'ade das 
operacoes ldgicas do MSX (veja artigo publicado em CPU numero 
6), principalmente OR c AND e saber realizar rotacSes de bytes. 

Partindo do pressuposto de que os leitores ja possuem um certo 
conhecimentoarespeitodaestrutura da VRAM, vou apenas lembrar 
que a tabela de padroes dos caracteres em SCREEN 1 inicia e 
termina, originalmenle, em (zero) e 2047, respecti vamente, lendo, 
portanto, a extensao de dois Kbytes. 

As tabelas verdade das operacoes ldgicas OR e AND s3o as 
seguintes: 



TABELA VERDADE - OPERACAO OR 


A 


OR 


B 


C 













1 







1 







1 


1 


1 




1 


1 



TABELA VERDADE - OPERACAO AND 


A 


AND 


B 


C 













1 















1 





1 




1 


1 



A rota^ao de bytes 6 feita atravds da divisao ou da multiplicacao 
do valor do byte por 2 , onde n 6 o numero de bits da rotacao. Para 
fazer rotacao de byte para a direita, deve-se dividir, e, para a 
esquerda, multiplica-se. Veja como: 



ROTACAO PARA 


A DIREITA 


10000000 / 21 = 
10000000 / 22 = 
10000000 / 27 = 


01000000 
00100000 
00000001 




ROTAQAO PARA A ESQUERDA 


00000001 * 21 = 
00000001 * 22 = 

00000001 * 27 = 


: 00000010 
: 00000100 
: 10000000 



A seguir, apresento oito exemplos de rotinas redefmidoras de 
padroes de caracteres e explico seus algoritmos. 

CARACTERES BOLD 

O conjunto de caracteres BOLD possui o traco mais largo e 
grosso do que o dos caracteres normais. Podemos obte-lo atrav6s da 
rotacao de um bit para a direita dos bytes que compoem os ca- 
racteres, que equivale a dividir o valor original por 2 e, em seguida, 
efetuando a operacao OR entre o byte original e o alterado. Observe: 



ROTACAO 



OP.OR 






ORIGINAL ALTERADA BOLD 

ROTINA PARA GER AR CARACTERES BOLD 

10 SCREEN 1 : FOR 1=1 TO 2047 : VPOKEI, VPEEK (I) 

OR VPEEK { I ) / 2 : NEXT 
Observac3o: Uma outra rotina para gerar caracteres BOLD foi 
publicada no informativo da Editora Alcph numero 10, possuindoo 
mesmo algoritmo. 

CARACTERES LARGOS 

Para se gerar caracteres LARGOS podemos usar o mesmo 
principio gerador dos BOLD. No entanto, antes de realizar a 
operacao OR entre a matriz alterada, sera necessario colocar uma 
mascara atraves da operacao AND sobre cada matriz. Na original 
ser3o preservados os tres bits da esquerda e, na alterada, os cinco bits 
da direita. S6 entao sera feita a operacao OR cntrc as matrizes 
"mascaradas", obtendo, assim, os caracteres LARGOS. 
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ROT 



























ORIGINAL 



ALTERADA' 




AND 




MASCARA 



ORIGINAL 




























AND 



















MASCARA 



ALTERADA 




AND 




ORIGINAL ALTERADA 

MASCARADA MASCARADA 




CARACTERES SEMI-BOLD 

Dcnominei estes caracteres de semi-bold porque, dos oilo bits 
que formam urn byte de padrao, quatro tern caracterfsiicas BOLD e 
os ouiros quatro s3o comuns. Podem ser de dois tipos: ESQUERDA 
BOLD E DIREITA BOLD. 

ESQUERDA BOLD 

Para se obter este tipo, faz-sc a rotacao de um bit para a direita dos 
bytes da matriz original. Coloca-se uma mascara na original para 
que somente restem as tres colunas da esqucrda. Rcaliza-se a 
opcracao OR entre a matriz e a "mascarada", obtendo o novo 



ROTACAO 




ALTERADA 



AND 





ORIGINAL 



MASCARADA 



OK 



LARGO 




ROTINA PARA GERAR CARACTERES LARGOS 

10 SCREEN 1 : FOR 1 = TO 2047 :K=VPEEK(I) AND 
&B11100000 : L=(VPEEK(I)/2) AND &B00011111 : 
VPOKEI , K OR L : NEXT 

CARACTERES LARGOS BOLD 

Este tipo de caracteres e o resultado da uniao das rolinas LARGO 
c BOLD. Para obte-los, gera-se os caracteres LARGOS nor- 
malmente e, em seguida, realiza-se a operacao OR entre a matriz 
larga original e uma matriz larga com umbitde rotacao paraadireita. 



MASCARADA 



ALTERADA 



ESQUERDA BOLD. 



DIREITA BOLD 

Seguindo o mesmo processo, conscgue-se o tipo DIREITA 
BOLD. A unica alteracao sera" o uso da mascara na matriz alterada, 
fazendo com que rcslcm somente as cinco colunas da direita, 
enquanto a matriz original n3o recebe ncnhuma mascara, ficando 
inaltcrada. 

























OR 




































LARGO 
ORIGINAL 



LARGO 
ALTERADO 



LARGO 
BOLD 



ROTINA PAR A GERAR CARACTERES LARGOS BOLD 

10 SCREEN 1 : FOR 1=0 TO 2047 : K=VPEEK(I) AND 
&B11100000 : L=VPEEK(I) /2) AND SB00011111 : 
M=K OR L : VPOKE I,M OR M/2 : NEXT 



AND 





MASCARA 



ALTERADA 



MASCARADA 





MASCARADA 



ORIGINAL 



DIREITA BOLD 
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ROTINAS PARA GERAR CARACTERES SEMI-BOLD 
ESQUERDA BOLD 

10 SCREEN 1 : FOR 1=0 TO 2047 : K=VPEEK(I) AND 
&B11100000 : L=VPEEK(I)/2 : VPOKEI,KORL : 
NEXT 
DIREITA BOLD 

10 SCREEN 1 : FOR 1=0 TO 2047 : K=(VPEEK(I) /2) 
AND &B00011111 : L=VPEEK(I) : VPOKE I,KOR L : 
NEXT 

CARACTERES ESTREITOS 

Para obter esle conjunto, colocamos uma mascara sobre a malriz 
original de modo que sobrem apenas as ires colunas da esquerda. O 
resultado sera chamado de "mascarado urn". Novamente, com a 
matrix original, coloca-se uma mascara com a opcracao AND, para 
que fiquem somente as seis colunas da direita. Mulliplica-se o valor 
de cada byte por dois para conseguir uma rotacao de um bit para a 
esquerda. Fazemos uma OR entre a resultantc e a "mascarada um" 
c obtemos a matrix cstreita. 



CARACTERES INCLINADOS 

Parasecriarcaracteres inclinados, bastafaxer a rotacao dos bytes 
da matrix dos caractcrcs de modo que os bytes de cima ou os de bai xo 
recebam um maior deslocamento. Dessa maneira, os caractcrcs 
poderao aparecer inclinados para a direita ou para a esquerda. 

INCLINADOS PARA A DIREITA (ITALICOS) 

Nos caractcrcs inclinados para a direita ou italicos, os bytes da 
matrix sofrcm as seguintes rotacOes: 

Primeiro e segundo bytes - dois bits para direita 
Terceiro ao quinto - um bit para a direita 
Sexto ao oitavo - inaltcrados. 




ROTACAO 




ORIGINAL 



ITALICO 



AND 





MASCARA 



ORIGINAL 



MASCARADA I'M 



INCLINADOS PARA A ESQUERDA 

Nos caracteres inclinados para a esquerda, as rota?5cs ocorrcm 
de maneira inversa. Veja: 

Primeiro e sgundo bytes - inalterados 
Terceiro ao quinto - um bit para a direita 
Scx,to ao oitavo- dois bits para a direita 




OR 






ROTACAO 




MASCARA 



ORIGINAL 



MASCARADA 




ROT 




MASCARADA 



RESULTANTE 





ORIGINAL 



INCLINADO 
PARA ESQUERDA 



ROTINAS PARA GERAR CARACTERES INCLINADOS 

INCLINADOS PARA A DIREITA 

10 SCREEN 1 : FOR 1=0 TO 2047 STEP 8 : FORN=l TO 
1 + 1 : VPOKENMV PEEK(N) /4 : NEXT : FORN=I+2 TO I 
+ 4 : VPOKEN,VPEEK(N) /2 : NEXT : NEXT 



INCLINADOS PARA A ESQUERDA 

10 SCREEN 1 : FOR 1=0 TO 2047 STEP 8 : FORN=I+2 T 
O 1 + 4 : VPOKE N,V PEEK (N) /2 : NEXT : FORN=I+5 TOI 
+7 : VPOKEN, V PEEK(N) /4 : NEXT : NEXT 



MASCARADA UM RESULTANTE 



ESTREITO 



ROTINA PARA GERAR CARACTERES ESTREITOS 

10 SCREEN 1 : FOR 1=0 TO 2047 : K=VPEEK(I) AND 
&B11100000 : L=(VPEEK(I) AND &B001111111) *2 
: VPOKE I , K OR L : NEXT 
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BUS EXPANSION E RESET 
NO EXPERT 



RUBENS HENRIQUE KUHL JR. 
PAULISOFT INFORM ATIC A 



Assim que os MSX foram lancados na feira de informdlica 
de 1985, surgiu uma richa cntre os adoradorcs do Expert e os 
apaixonados pclo HolBit. Todos tenlam provar que o seu € o melhor 
micro e ressaltam os pontos negativos do outro. Apesar de n3o 
quercr entrar nessa briga, este artigo vem suprir um ponto falho do 
Expert e mostrar como usar um dos seus recursos extras. 

BOTAO DE RESET 

Sem sombra de duvida, um grande erro da Gradiente foi 
nao ter dotado o Expert de botao de reset. Ele existe em quase todos 
os outros MSX do mundo e o motivo por que ele foi excluido do 
Expert 6 estupido: falta de lugar. A equipe de design nao achou onde 
colocd-lo no gabinete, e a engenharia afirma que 6 impossivel passar 
os fios pelo cabo do tcclado. 

Mas o reset n3o foi esquecido. Ha dentro do Expert um 
circuito completo de reset, incluindo supressor de oscilacao da 
chavee temporizadorpara mantero sinal o tempo necessario. E onde 
ele esta conectado? Ali atras, no Bus Expansion. 

No barramento do MSX ha" duas linhas (SW1 e S W2) que 
detectam se ha" um cartucho presente. Mas como nao se pode (a 
prinefpio) colocar cartuchos no Bus Expansion, estes pinos foram 
ligados ao circuito de reset. Assim, basta ligar um deles ao +5 V para 
obter o reset. 

Mas n3o ha um reset por Software? Ele naoe" melhor? Bern, 
quando funciona ele 6 sim. Mas muitos programas costumam 
deix3-lo inoperante. Fica dificil usar o Konami GameMaster nos 
jogos comuns sem ter um botao de reset, como o do HolBit. 

Este botao de reset estraga o micro? N3o, de forma alguma. 
Infelizmente, algu6m di vulgou um circuito de reset que usava o sinal 
RESET do barramento, esquecendo que esse sinal 6 exclusivamente 
de sai'da. O mesmo vale para alguns cartuchos que possuem este 
botao, jd que os sinais S W 1 e S W2 dos conectores A e B funcionam 
de modo normal. 

A instalacao 6 simples. N3o 6 necessario abrir o micro, nem 

requer conhecimentos de eletr6nica, apenas cuidado e atenc3o. 

Como se ve na figura 1, basta achar o Bus Expansion, contar a 

terceira fileira da esquerda para a direita e soldar (ou prender) dois 

fios ligados aos terminais de um interruptor (chave liga-desliga n3o 

serve, mas serve at6 botao de campainha!) e pronto. 

Figura 1 

(BUS EXPANSION ) 



49 
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50 ' 



BUS EXPANSION 

Atd hoje, poucas pessoas veem utilidade no Bus Expan- 
sion. A id6ia da Gradiente era reduzir o problcma do baixo niimero 
inicial de slots do MSX, fora o fato de que o Bus Expansion facilita 
a aplicacao do Expert em controle industrial. 

10 CPU 



O Bus Expansion 6 uma extensao do conector frontal B, 
mas com uma limitac3o: se houver um cartucho no slot B, nenhum 
disposilivo com acesso por enderecos (cartuchos com ROM ou com 
RAM entre outros) sera selecionado. 

Mas disposiuvos controlados por portas, como as inter- 
faces de comunicacao e alguns programadores de EPROM, entre 
outros, podem scr ali ligados, deixando um slot livre. Outra 
apl icagao e a c6pia de programas em cartucho, bastando deixar o slot 
B vazio e encaixar o cartucho com o micro jd ligado. 

O material pode sair caro, mas ter um conector a mais 
compensa a reduc3o do tira-e-poe de cartuchos. A montagem fica 
assim: num conector femea de 50 pinos, solde um cabo piano de 50 
vias (quanto mais curto, mais barato e menos interfer&ncia) e neste 
um conector macho para cartucho igual ao que tern dentro do Expert 
(cuidado com a pinagem. Veja, na figura 2, como ela e" ao contrdrio 
da do cartucho). N3o ligue o cabo nos pinos 44 e 46 (SW 1 e SW2), 
pois fazem parte do circuito de reset (a ligac3o do botao de reset fica 
igual). 
Figura 2 





(CARTRIDGE A e B ) 
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CAPS LOCK 

Para finalizar, nao poderiamos esquecer de outra falha do 
Expert: o led do Caps Lock. Novamente, o argumento da Gradiente 
e o cabo do teclado ou o design. S6 que eles n3o notaram que se 
houvesse mais duas vias para o reset e mais duas para o led, havcria 
cabo e conector disponi'veis at6 em loja de eletronica. 

No nosso caso, resolver o problema 6 diffcil, pois seria 
necess3rio soldar um fio na PPI para ligar no Led, o que pode ser 
arriscado e ainda atrapalhar uma futura venda do micro. 

J3 que os adoradores do HotBit n3o devem ter lido ate" aqui, 
despeco-me dizendo que acho o Expert melhor, apesar do teclado 
(blargh!) e das falhas que discutimos aqui. Mas o Hotbit n3o deixa 
de ser um MSX, que 6 o melhor padr3o de 8 bits do mundo. Pena que 
ainda n3o tenhamos o MSX 2.0 ou o MSX 2.0 +. 



Rubens Henrique Kiihl Jr. cursa engenharia el£trica na 
USP. Programa em MSX ha trSs anos, trabalhando atu- 
almente para a Paulisoft, onde desenvolve projetos em 
Basic, Pascal, C e Assembly, dentre eles o copiador de 
discos. 



P/IUIlIISOFT InfDrmatica 




DIGITE O PROGRAMA ABAIXO LEVA APENAS 
42 MINUTOS P/ RODAR 



10 i » vt» r : rot dr 1 ;, . <. .mstMiN,' 
BO IOhl« r>T01£?)ftJ)Bli*titn IPfllA *,i.i. . 1/, .Hi*. 

X4>:fOM = flIQ«:K Sl.*v i *«. * I ■ I I / I ,*8 : 1 COSl 
H'mHl't | -(¥)■<*! V I /'-•( -J. 1 : II V M I III N 1> >| | '. 
EM=V:v i;-mv:»<|£u*&:i-*Jt HN.BSn V»rX"te»B 

HiPSI K > .Pflrj V) 
3'» IF INI I Vt='*"Tr« MNI X T I INF M I !■ 
"*'» If INI £V*-"' 1HI N<«" 
'.«i I Nil 



mas COM O MSXTURBO instaiado a 

EXECUCAO LEVA . APENAS 4 MINUTOS 



NAO E MAGICA E TECNOLOGIA 

UM INCRfVEL SOFTWARE QUE VAI DEIXAR SUAS ROTINAS DE CALCULO E PLOTAGEM DE GRAFICOS DE 6 A 20 
VEZES MAIS RAPIDAS! MSX TURBO E UM COMPILADOR QUE OPERA NA MEM6RIA, ACELERANDO 
INCRIVELMENTE AS OPERAQOES DE CALCULO. 

FITA/DISCO - NCZ$ 25,80 



Finalmente algu6m pensou em voce, tecnico ou hobista 
de eletr6nica e criou um auxiliar para seus projetos. 
Tabela padrao de simbologia em Eletronica; 
Recursos p/edigao, montagem e impressao de esquemas 
p/projetos eletronicos. 
Acompanha Arquivo Exemplo. 




A partir de agora, a apresentacSo dos seus esquemas 

tera aquele toque profissional! 

Autor: PAULO MARQUES FIGUEIRA 

FITA/DISCO - NCZ$ 25,80 



Super Editor de sprites 16x16 que inclui rotinas para 
reversao, espelho de 1/2 e 1/4. 




r w 



'""■ x 
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O manual que acompanha o Software e genuinamente 
um curso sobre sprites. Inclui rotina para animaros 

sprites que voc§ criar. 

Ferramenta indispensavel ao programador e a quern 

deseja explorar e conhecer os recursos do MSX. 

Autor: FABIO A. R. CORREA 

FITA/DISCO- NCZ$ 19,40 



GRAPHIC VIEW 

Incrivel programa para criar animacoes graficas. 



]?( 



EROTIC SHOW - NCZ$ 6,00 
MEGA MUSIC - NCZ$ 5,00 



Software 100% nacional com manual, copias com n B de serie, garantia de "up to date" e assist§ncia ao usuaTio. 
Incrfveis produtos que vfio fazer o seu MSX virar uma maquina quente. 

Envie seu pedido para a Cx. Postal 64.019 - CEP 02227 SP/SP, acompanhado de cheque nominal ou 
vale postal, ou visite-nos: Av. Prestes Maia 241 - Conj. 908 (a 100 metros da Estagao Sao Bento do 
Metro). Fone (011) 228-1 31 3 



Caso deseje solicite catalogo completo (gratis) c/ nossos Produtos. 



FAIXAS E CARACTERES NO MSX 






PIERLUIGI PIAZZI 
+50 DIC AS PARA MSX 
EDITORA ALEPH 



Recentcmcntc, mcu filho de 13 anos me perguntou sc o Apple 
da Editora estava livre para que ele pudesse usa-lo por algumas 
horas. Fiquei intrigado. Afmal de contas, minha editora e especiali- 
zada em MSX e, enlre Expert e Hotbil tcmos uma dezena dessas 
maquinas em uso. Porque ele havcria de querer logo urn Apple? 

Af ele me explicou que queria fazer, na impressora, algumas 
faixas e cartazes para a feira de ciencias do colegio, usando o 
programa "Printshop" do Apple. 

Ofendidfssimo nos meus brios de "MSX-maniaco", sentei cm 
frente a um Expert e, pouco tempo depois, gerei o programa listado 
nesta mateYia. 

Obviamenle, como editor e escritor, resolvi aproveiui-lo, numa 
vcrs3o mais sofisticada, para o proximo lancamento da Aleph: 
"+50 Dicas para MSX". Mas, enquanto o livro n3o sai, o editor da 
CPU e eu resolvemos brindar os leitores desta revista com mais 
uma rolina lilil para seu MSX. 



1O0 "PROGRAMA DO LIVRO +50 DICAS P/M3X 

110 'EDITORA ALEPH .1998 

1 20 CLEAR 1 024 "■ P0KE&HF4 :i. 7 , 255 S DEF INT A -Z 

i 30 LP R I N rCHR % ( 27 ) "A"CHR S ( 8 ) ? : SCR EEN 1 

140 LA«6! "LAR8.D0 CAR ACT. < 6/7/8) 

150 LI = 2s 'LARG..DE IMPR-Cl A 32 > 

160 HI -6= "ALT LIRA DE IMPR.C1 A 9 P/80 COL 

E 1 A 14 P/132 COL) 

170 HP=HI»64sMS=4IP\256 = LS-HP MOD 256 

180 WT*i8'<i A 4) DEFINE TEXTURA 

190 WW»~i70* ( WT==i ) -204-K- ( UIT==2 ) -240»< WT = 3 ) 

~255«(WT-4> 

200 INPUT "QUAL A MENS AG EM" ; AS : IF LEN(AS) 



CL 



'LONG A DEM A IS! 



210 
220 
230 
240 
250 
260 
270 
280 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 

390 
12 CPU 



>250 THEN 

GOTO 200 

GOSUB 350 s FOR 1*1 TO LEN<A9) 

CS»MIDS < AS , I , i ) a E*ASC < CS ) *8 

FORK=0TO7sX*E+K!YS=BINS<WEEK<X)) 

BS ( K ) =R IGHTS ( "00000000" + YS , 8 > : NEXTK 

FOR F- i TOLA :PS=""s FOR J=7TO0STEP -i 

P$«PS+MID$<B$(J> ,F,i ) sNEXT J 

GOSUB 280 : NEXT F r I-END 

FOR H«i TO LENCP9>tTS«HZDf(P9rM v i)i 

T ( M ) "VAL < T* > *WUI s NEXT M 

FOR N-l TO LI 

IF OAL("&B"+P%)^0 THEN 340 

LP R INT CHRS ( 27 ) "l< "CHR % ( LS ) CHRS ( MS ) S 

FOR M=>1 TO LEN<PS):F0R B»i TO 8*HI 

LPR INT CHRS ( T ( M > ) 5 ! NEXT G r M 

LPRINT CHR9H10) ; sNEXT NsRETURN 

0S=""sF0R R»l TO LEN(AS) 

S»*MI DS ( AS , R , 1 ) s S=ASC ( SS ) 

IF S>31 THEN <JS=0S+3S 

IF S«i THEN Q5»«S+CMR« 

< ASC ( MIDS ( AS , R + l , 1 ) ) • -64 ) : R=R +1 

NEXT RsA5=Q5s RETURN 




Ap6s digitar (c gravar!) programa listado, usuario 
pode fazer algumas alicracocs para adpti-!o as suas nccessi- 
dades. 

Na linha 140 c dcliuida a largura do caracter a ser usado 
(LA), que pode variar de 6 a 8. Usando o valor 6, tercmos 
espacamenio da SCREEN (alguns caracteres graficos 
sairao "cortados"). O valor 8 rcproduz os caracteres como na 
Screen 1 (8x8pontos). 

Na linha 150 define-se a largura deimpressao(de 1 a 32). 
Quanto maiorLI, mais "gordas" sairao as lctras do carta/.. No 
programa usamos o valor 2 (veja a figura cxcmplo), gerando 
lctras tipo "Marcos Maciel". 

Na linha 160 dcrinimosaaltura das letras,at6ummaximo 
de 9 para impressoras de 80 colunas (cuidado: existem im- 
pressoras, como a Grafix MTA que accilam um maximo de 
7) ou 14 para 1 32 colunas. 

Na linha 180, a variavel WT define a lextura da 
impressao, desdc tracos finos (WT=1) al6 tracos chcios 
(WT=4) 

Rode programa algumas vezes com parametros 
diferentes e mensagens curias, para sc familiarizar com seu 
funcionamento. 

Aldmda utilidadc intrinseca darotina.hiiumalicaoque 
pode ser tirada deste programa: o MSX e um micro t3o 
versdtil e tao "USER FRIENDLY" que programadorcs 
medfocres (como 6 o meu caso), usando linguagens faceis 
(como 6 o caso do Basic), podem gcrar, rapidamente, rolinas 
que, em outra maquinas, exigiriam programadores de pri- 
meira linha, usando, no mfnimo, linguagem assembly. 

Esta talvez seja a maior virtude do MSX e a raz3o do seu 
sucesso. 



Pierluigi Pia/zi e autor de varios livros para MSX, 
sendo diretor- editor da Editora Aleph. 



FORMATANDO ARQUIVOS 
DE TEXTO 




GUSTAVO F.BAYER 



Por causa do seu baixo custo c da fa- 
cilidade de obtcncao dos caracteres cspe- 
ciais da lingua portugucsa no seu teclado, 
os micros MSX tern tudo para se tornarem o 
cquipamento perfeito para a claboracao de 
textos. Por isso 6 quase inexplicavcl a 
inexistenciadcum programa mais complelo 
de processamento de textos que, al6m dos 
recursos convencionais de definicao de 
margcns, sal to automatico de linhas com 
transferencia dc palavras excedentes e 
alinhamento a dircita, manipula$3o de blo- 
cos etc., aproveite as facilidadcs do teclado 
MSX, seja no controle do cursor ou na 
geracao dos caracteres acentuados e 
cedilhas do portugues. 

Entre os processadorcs dc tcxto 
disponfveis, o que mais sc aproxima desse 
ideal e o SCED, normalmenle usado na 
digita^ao dc programas para posterior 
compilacao. 

Suas grandes vantagens s3o traba- 
lhar em 80 ou 40 colunas de video, com 
linhas de ate" 132 caracteres, aceitar todos os 
caracteres produzidos pclo teclado MSX e 
gravar os arquivos em formato ASCII puro 
(cada linha e gravada com os codigos 
ASCII de seus caracteres, scguidosporOA e 
0D, corrcspondentes ao "linefeed" c ao 
"return"). Isso permite a geracao de ar- 
quivos facilmcnte tratados por rotinas de 
impressao ja disponfveis, como a PIP.COM 
c ate mesmo a inclufda no MSXWRITE, ou 
por rotinas especificamente elaboradas para 
a imprcssora cm uso, como as para a MTA e 
a LADY 80,jacomentadas nessarevista. De 
resto, os demais comandos de deslocamento 
do cursor, "scroll", divisao e junc3o de 
linhas, busca e troca de palavras, gravacao 
c lcitura de arquivos e de pesquisados discos 
em uso, s3o no mfnimo t3o acessfveis e 
eficientes quanto nos outros processadorcs 
de texto. 

Em alguns aspeclos, enlretanto, o 
SCED dcixa a desejar. 

Sua rotina de manipulacao de blocos 
c trabalhosa: os blocos n3o s3o marcados, 
mas indicados por sua linha inicial e pelo 
niimcro dc linhas, e s6 podem ser copiados 
(sem opc5es de transferencia ou 
eliminacao). Mais grave, pordm, 6 a impos- 
sibilidade de definicao dc margens e, por 



causa disso, a inexistencia do salto 
automatico de linha com transferencia de 
palavra excedente e alinhamento a dircita. 

Para a ausencia do salto automatico 
de linha, a solucSo 6 proccder como na 
mdquina de escrever: dando "return" ao fim 
dc cada linha. Com isso, o alinhamento 3 
direita tornar-se-ia extrcmamentc tra- 
balhoso, pois aI6m do controle preciso do 
salto de linha, os espacos neccssarios tcriam 
que scr inscridos manualmente entre as 
palavras. 

O programa aqui aprcsentado foi de- 
senvolvido exatamenle para suprir a 
ausencia de uma rotina de alinhamento 
automatico no SCED, aprovcitando a facili- 
dade de manuseio dos arquivos por ele gra- 
vados. Em prinefpio, ele funciona de modo 
scmclhante 3 fun^ao de acertar paragrafos 
dos editores de texto baseados no 
TASWORD: a partir da definicao inicial do 
numero desejado dc colunas por linha, cada 
pardgrafo do arquivo original e formatado 
com alinhamento automatico 3 direita, e o 
tcxto formatado 6 gravado em urn novo 
arquivo (cuja extens3o e o numero de 
colunas usado na formalac3o). 

As situacfles intcrprctadas como 
infcio de novo paragrafo s3o as scguintes: 

-linha cm branco; 

recuo dc infcio dc par3grafo (5 espa 

cos vazios); 

-linha iniciada com algarismo; 

-linha iniciada com hi'fen ("sinal 

dc menos"). 

Os trcchos a serem cxclufdos da 
formatacao, por exemplo tabclas, devcrao 
ser precedidos e seguidos por linhas que 
contenham apenas dois caracteres ASCII 
200 (GRAPH L no Hotbil ou LGraL no 
Expert). 

O programa foi escrilo em MB ASIC, 
por esse scr linico B AS IC accssivel ao car- 
tucho de 80 colunas da SHARP, e princi- 
palmente pela possibilidade de sua 
transformacao em um programa com a 
extensao .COM, atraves do BASCOM, o 
que permite uma substancial acdcracJSo do 
seu processamento. Para rodar em telas de 
40 colunas, deverd ser acrcscentada a 
scguinlc linha: 



75 WIDTH 40 

A compilacao atraves do BASCOM 
c bastante simples. Uma vez digitado e tes- 
lado o programa, ele deve ser gravado no 
formato ASC II, atraves do comando: 

<save "alinha.bas",a>. 

Rctornando ao DOS, comande: 

<bascom alinha=alinha>. 

O BASCOM analisar3 o programa, 
gravando um arquivo intermediario com 
nome ALINHA.REL, enccrrando com a 
mensagem de possfveis crros assinalados. 
Havendo erros, cles devcrao ser corrigidos e 
o processamento pelo BASCOM de vera scr 
reiniciado. A seguir, comande: 

<link alinha,alinha/n/c>, 
e o BASCOM compilar3 c gravara pro- 
grama ALINHA.COM. (Para compilar 
outros programas, basta por o nome princi- 
pal desse programa no lugar do "alinha" dos 
comandos acima citados.) Para facilitar a 
adaptacao do programa cm BASIC MSX 
por quern n3o disponha do BASCOM, ele 
foi escrito sem aproveitar recursos exclu- 
sivos do MBASIC, tais como os lacos 
WHILE - WEND c a designacao de 
variaveis por extenso. Por isso, basta digitar 
as seguintes linhas: 

75 CLEAR 500 :MAXFILES=2 :KEYOFF 
110 OPEN EN$ FORINPUTAS#l 
190 OPEN SA$ FOROUTPUTAS#2 

O programa em BASIC MSX e, en- 
tretanto, bastante mais lento que o programa 
compilado: apesar do tempo gasto com o 
acesso contfnuo ao Drive ser mesmo, 
programa cm BASIC MSX leva quase 
dobro do tempo usado pelo programa COM 
no processamento dc um arquivo de texto. 

Como observac3o final, e impor- 
tante registrar que esse programa n3o tern 
maiores pretens5es que ser um "quebra- 
galho". Afinal, ele foi dcscnvolvido por um 
mero usuario levado ao autodidatismd^na 
programacSo pela insuficiencia de 
utilitirios para o processamento dc textos. 
Sugcst5es c programas mais eficientes sao 
benvindos, principalmente se algum defen- 
sor do"software nacional" desenvolver, fi- 
nalmente, um editor de textos 3 altura dos 
micros MSX aqui fabricados. 

CPU 13 



ib mmtmmmmmnitmumt 

20 t Fonatador de arquivos de texto t 

38 t Linguagea: HBASIC I 

48 liltllltliilillliiliiitlltliiiiiui 

SB ' 

60 ' 

7§ ' tttttttttt JNICIALIZACAO ttttttttt 

88 DIM PL$(40),TN(40) 

98 PRINT CHRt(12):F0R F=l TO 1B:PRINT " 

t ";:NEXT F:PRINT:PRINT't FORHATADOR DE 

ARQUIVOS DE TEXTO *":F0R F=l TO IB:PRI 
NT't ';:NEXT F:PRINT:PRINT:FILES:PRINT 
CHR$(7) 
180 PRINT CHR«(7):LINE INPUT "Arquivo a 

foraatar ? -;EM*:IF EN«=" THEN 60T0 1 
88 

118 0PENT,M,ENI 
128 A=A+1:AS=HIDS(ENS,A,1) 
138 IF AS=" THEN SA*=EN«j60T0 160 
14B IF AtO'." THEN GOTO 12B 
15B SA=A-1:SA*=LEFT$(EN$,SA) 
160 PRINT CHR*(12):LINE INPUT'Alinhaaen 
to (direita) na coluna? ";CLS:IF CL$=" 

THEN GOTO 160 
17B CL=VAL(CLS) 
188 SA«=SA$+\'+CL« 
19B OPEN'OVM.SAS 
200 PRINT CHR«(12) 

218 ' tttt VERIFICACAO DO AROUIVO ttttt 
228 IF E0F(l)O-i THEN LINE INPUTftl.LA* 

ELSE END 
23B IF E0F(1)<>-1 THEN LINE INPUTM.LCS 

ELSE LCS=" 
248 FP=0:IF LC«=" OR LC*=CHRt(200)+CHR 
t(20B) OR LEFTS(LCS,5)=" ■ OR LEFTS 

<LC$,1)=CHRS(45) OR ( LEFTS (LC*,1)>CHRS( 
47) AND LEFTS (LCS,l)<CHRt( 58)) THEN FP= 
1 



250 TA=LEN(LAS) 

26B IF LAS=" THEN SOTO 54B ELSE IF LAS 

=CHRt(200)+CHRt(208) THEN SOTO 71B 

278 IF TA=CL THEN 60T0 548 

288 IF TA<CL AND FP=i THEN SOTO 540 

290 IF TA<CL THEN 60T0 620 

308 ' tttttt PALAVRAS EXCEDENTES Itttlt 

310 CA=LEN(LAS):PLS=" 

320 CAS^IDS(LA*,CA,1) 

330 IF CAS>CHRS(32) THEN PLS=CA*+PLt:CA 

=CA-1:60T0 320 

348 LB$=PL*+CHRS(32)+LB* 

358 IF RIGHTS(LB$,1)=' ' THEN LBS=LEFTS 

(LBS,(LEN(LBS)-1)):60T0 358 

368 LAS=LEFTS(LAS,(CA-1)):TA=LEN(LAS) 

370 IF LEN(LAS)>CL THEN SOTO 310 

380 IF LEN(LASKL THEN BOTO 540 

390 ' tttt DECOHPOSICAO DE LINHAS ttttt 

400 FOR F=l TO 40:PLS(F)=":TH(F)=0:NEX 

T F 

410 PL=0:CA=0 

42B PL=PL+1:A$=PL$(PL-1):IF AS=" " OR A 

S=' ' OR AS=" " OR A*=" • OR A*=" 

' THEN PL=PL-1 
438 CA=CA+l:CAt=NID$(LAt,CA,l):PLS(PL)= 
PLS(PL)+CAS 
448 TH(PL)=TH(PL)tl 

450 IF CAt>CHR$(32) THEN GOTO 430 ELSE 

IF CAt=CHR«(32) THEN GOTO 420 

460 ' tttttttttt ALINHAHENTO tttttttttt 

470 CP=CL-TA:IF CP=0 THEN GOTO 510 

480 PA=PL 

490 FOR F=l TO CP:PL*(PA)=CHRS(32)+PL$( 

PA):PA=PA-1:IF PA=1 THEN PA=PL 

500 NEXT F 

510 LA$="" 

520 FOR F=l TO PL:LAS=LAS+PLS(F):PLS(F) 

= ":NEXT F 

530 ' tttttt GftAVACAO E REINICIO tttttt . 



540 PRINT LAS:PRINTh2,LAS 

550 IF LBS)"" AND FP=1 THEN LA$=LBS:LB« 

=":60T0 250 

560 IF LEN(LB$)=>CL THEN LA*=LB$:LBS=" 

:60T0 250 

570 IF LBS>" THEN LA«=L8t+" "+LCS 

580 IF LB*=" THEN LAS=LCt 

590 LBS=":LC*=":IF E0F(1)<>-1 THEN GO 

TO 238 

600 IF LAS>" THEN TA=LEN(LAt):GOTO 240 

610 CLOSE:FOR F=l TO 17:PRINT't ";:NEXT 

F:PRINT:PRINT"t FORHATACAO DE TEXTO CO 
NCLUIDA f:FOR F=l TO 17:PRINT"t ',-iNEX 
T F:END 

620 ' ttt COHPLEHENTACAO DE LINHAS tttt 
630 IF LC*>" THEN CA=0:PLt=":TC=0 ELS 
E GOTO 540 

648 CA=CA-H:CAS=MIDS(LCS,CA ! 1):PLS=PL«+ 
CAS 

650 IF CAt>CHR«(32) THEN TD=TC+1:6QT0 6 
40 

660 IF CAt=CHRS<32) THEN PL*=CHRS(32)+L 
EFTS{PLS,(LEN(PLS)-1)) 
670 IF CAS=" THEN PLt=CHRS(32)+PLS 
680 IF TA+HTOCL THEN GOTO 398 
690 IF TA+1+TC<=CL THEN LA«=LAS+PLS:TA= 
TA+1+TC:IF.LEN(LC$»TC+1 THEN LCS=RI6HT 
«(LC*,(LEN(LC»)-(TCtl))) ELSE IF E0F(1) 
<>-l THEN LINE INPUTM.LCS 
708 IF TA=CL THEN GOTO 540 ELSE GOTO 63 


718 ' ttttt LINHAS SEN FORHATACAO ttttt 
720 LAS=LC*:GOTO 750 
730 IF E0F(1)<>-1 THEN LINE INPUThl,LAS 

ELSE GOTO 618 
740 IF LA$=CHRt(200)+CHR»(200) THEN GOT 
220 
750 PRINT LAt:PRINTn2,LAt:G0T0 730 
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SINTEVOZ 



JULIO VELI.OSO 



Lendo artigos sobre a sinleuzacao da voz, resolvi fazcr urn sintctizador para o MSX. Esle 
programa 6 bascado na lecnica dc digitalizacao da voz, que convene um sinal analdgico em 
digital, guardando-o na mem6ria em formato binario para, em seguida, fazer o inverso, 
reproduzindo a voz. 

O PROGRAMA 

Ulilizando o processador de som e o PPI, o programa funciona da scguintc forma: 



ROTINA 1 

Libera a RAM adicional (32k de mem6ria) atravds da porta A8h da PPI. Liga o 
gravador, ressetahdo o bit 4 da porta AAh do mesmo. 

Comcca, entao, a parte mais importante do programa. HL 6 iniciado com zero, 
'DE ' com a quantidade de bytes a serem gravados. Le-se, no bit 7 da porta A2h a informacao 
vinda do gravador, que pode scr ou 1. Dependendo disso, o programa seta ou nao o bit 7 
do rcgistrador C. 

Depois, o programa faz uma rotacao no mesmo, rcpctindo isto 8 vezes, at£ 
completar um byte, que 6 colocado na memoria apontada por 'HL'. O apontador HL 6 in- 
crementado e o DE decrementado, fazendo isto at6 que 'DE' fique igual a zero. 

Por fim, a rotina desabilita a RAM adicional , desliga o gravador e volta ao BASIC. 

ROTINA 2 

O funcionamento desta outra rotina e o inverso da primeira, pegando um bit de 
um byte da mem6ria apontada por 'HL' e joga-o para o processador de som, repetindo isto 
8 vezes para cada byte e depois atd que 32k bytes sejam enviados para o procesador de som. 

Fazendo isto, o micro reproduz a voz anteriormente gravada. 

OPERAgAO 

Para fazer com que o programa funcione, digite a listagem do programa, tomando 
cuidado com os codigos em hexadecimal. Grave o programa e digite 'RUN'. 
Liguc o gravador, pressionando: 

'PLAY' + 'RECORD'. 

Aperte espaco e fale ao microfone (o cabo do motor e o do load tcm que estar 
conectados ao gravador). 

Para que o micro reproduza a voz, digite '1'. Para outra gravacao, digite '2' e para 
voltaraoBASIC'3*. 



Julio Velloso e estudante da UCP, na qual cursa o 4° pen'odo do Curso de Ciencia 
da Computacao. Programa em Basic, Assembler Z80, Pascal e dBase III, ha 
quatro anos, nos equipamentos IBM-PC e, principalmente, MSX. E autor do 
programa utilitario de copia BKP, comercializado inicialmente pela Ciberne e do 
Sistema Operacional BKP Disco, comercializado pela Paulisoft Informatica. 
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120 ' 


Por: Julio Velloso 


130 ' 





140 SCREENS : C0L0R1 5,1,1: KEYOFF : DEFUSR=* 

HC000:DEFUSR1=JHC038 

1 50 RESTORE280 : F0RA=8T0135 : READA$ : POKE* 

HC000+A,VAL("4h*tA$):NEXT:A=INP(»HA8):I 

FA=&HA0THENPOKE(iHC008 , &HAA : POKE4HC02D , 4 

HA0 : POKE&HC03A , tHAA :POKEiHC07A , IHA0 

160 PRINTSPC{15);"SINTEV0Z":PRINT:PRINT 

SPC(10);"Por: Julio Velloso" :PRINT:PRIN 

T-.PRINT 

170 PRINT"- Coloque o plug do load e ti 

re o do save.*:PRINT:PRINT"- Aperte 

'play' «• 'record'.' 
180 PRINT:PRINT:PRINT:PRINT:PRINTSPC(12 
);"APERTE ESPACO." 

190 A=STRI6(0) : IFA=0THEN190ELSEA=USR(0) 
200 ' 

210 ' SPEAK 
220 ' 

230 PRINT:PRINT:PRINTSPC(9)j"l - Reprod 
uz a voz.":PRINT:PRINTSPC(9);"2 - Outra 

6ravacao.":PRINT:PRINTSPC(9);"3 - Volt 
a ao BASIC." 

240 A*= I NKEV* : I FA«= " ' THEM248ELSEA=VftL ( A 
f):0N A GOSUB 25B,260,278:6flTO 240 
250 A=USR1(0):RETURN 
260 SCREENS: RE TURN 160 
270 SCREENS :KEY0N: END 
288 DATA F3,DB,AA,CB,A7,D3,AA,3E 
290 DATA FF,D3,A8,21,BB,00,11,FF 
300 DATA 7F,0E,00,06,08,DB,A2,CB 
31B DATA 7F,20,04,CB,F9,1B,02,CB 
320 DATA 89,CB,29,10,F2,7I,1B,23 
33B DATA 7A,B3,2B,E7,3E,F0,D3,A8 
340 DATA DB,AA,CB,E7,D3,AA,FB,C9 
35B DATA F3,3E,FF,D3,A8,3E, 07, D3 
360 DATA Ae,3E,08,D3,Al,3E,B8,D3 
370 DATA A0,3E,00,D3,A1,3E,I1,D3 
388 DATA A8,3E, 00, D3,A0,3E, 08,03 
398 DATA A0,21,00,00,11,FF,7F,4E 
400 DATA B6,08,F3,CB,41,28,84,3E 
410 DATA BF,18,02,3E,00,D3,A1,CB 
420 DATA 29,10,EF,23,lB,7A,B3,2i 
438 DATA E6,3E,FB,D3,A8,3E,B8,D3 
448 DATA A0,3E,00,D3,A1,FB,C9,0S 
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PROJETO MSXDEBUG 

PARTE I 




SERGIO DURIC CAUIE1R0S 



Frcqucnicmcntc, ao abrir uma boa rcvista especial izada cm 
software, nos deparamos com bons programas, mas que, invariavel- 
mente, esulo conlidos em lislagens quilomdtricas em Basic, con- 
tendo codigo cm dczenas dc linhas DATA. Imagine o Irabalho c o 
desconforlo de digits-las utilizando apenas o editor Basic durante 
horas seguidas. Isso sem falar do codigo iniitil como a parte 
montadora e a pr6pria sintaxe da linguagem. Mesmo assim, dizem, 
um bom programa vale o sacriffcio! Serd? 

Que tal se todo esse trabalho fosse amenizado e csta fosse a 
ultima vez em que voce tivesse que digitar partes dispensaveis? Que 
tal dispor de um editor r&pido e versdtil e que pcrmita accssar 
qualqucr parte da memdria que o Basic n2o alcanca? Que tal ter em 
maos n3o s6 um editor, mas um sistema que possa ser expandido a 
medida que surgem as necessidades? 

Amigo leitor, e exatamente isso que propomos neste artigo. O 
MSXDEBUG 6 um programa que foi idealizado vizando ser 
complementado aos poucos. 

O programa consiste, basicamente, de meia duzia de comandos 
que formam a base de um sistema integrado. Este sistema content 
todas as rolinas necessarias a manipulacao de arquivos em disco, 
rotinas de rcconhecimento de comandos e varias oulras sub-rotinas 
que ser3o uteis no future 

Inicialmenle, estSo prontas as rotinas que formam a base do 
MSXDEBUG. S2o rotinas de manipulacao de memdria como 
DISPlay, EXECutar, MOVer e FILL (preencher com dado valor). 
Alem dessas quatro, tambem temos o DiskSAVE e o DiskLOAD 
(DSAVE e DLOAD, respectivamente) que permitem salvar um 
bloco da memoria no disco e carregar QU ALQUER tipo de arqui vo 
que cstcja no disco, seja ele executive), seja ele binario ou mesmo 
o proprio sistema operacional. O ultimo comando implementado & 
o comando D)R que mostra o diretdrio do disco sem maiores 
detalhes. 

A utilizacao do MSXDEBUG c bem facil e acessivel, princi- 
palmente aquele que csta iniciando no assembler. 

Apds a digitacao da listagem, salve o programa e rode-o. 

Automaticamenle, o seu MSXDEBUG sera montado e, caso 
haja algum erro de digitacao, sera mostrada a linha em que ocorre o 
erro. N3o esqueca de iniciaf o programa como mostra a listagem, 
pois, se ocorrer erro, sera" indicada outra linha que n3o 6 a corrcta. 
Ao final do processamento, voile ao DOS e digite MS XDEBUG. A 
teladevericontera mensagem inicial e o prompt esperando que seja 
digitado alguma coisa. 

A seguir esta" uma descri?ao mais dctalhada do que faz cada 
comando. 



1) DISP endereco 

Mostra o conteudo da memoria dado por endereco. Para avancar 
ou rctroceder, utilize as tcclas dos cursorcs. Estando na posicao 
desejada, pressione <CR>. Neste momento, voce podera alterar 
o conteudo desta memoria ou se deslocar ao longo dos eddigos 
livremente. Para alterar utilizando diretamente o teclado, pres- 
sione <CR> novamentc. Rcpita sempre que prccisar mudar o 
modo de cdigao. Para sair, basta pressionar <ESC>. 

2) EXEC endereco 

Execute cste endereco sem break-points. 

3) MOVE infcio, fim, destino 

Move um bloco na memdria. Infcio deve ser menor que fim. 

4) FILL infcio, fim, dado 

Preenche uma area dc memdria cspccificado por infcio e fim, 

com o dado fornccido. 

5)DIR 

Mostra o diretdrio do disco dc forma simples. 

6) DSAVE nome. ext, infcio, fim 

Salva o bloco limitado por infcio c fim no disco com o nome 
nome.exL Salva qualqucr coisa em qualquer lugar. 

7) DLOAD nome.cxt endereco 

Carrega qualquer arquivo, desde que esteja no disco e o coloca 
no endereco dado por endereco. Nestes tres comandos n3o c 
possfvcl especificar o drive. Sera utilizado aquele que cstava 
habilitado antes de executar o MSXDEBUG. 

8) DOS 

Enccrra as atividades no MSXDEBUG e retorna ao DOS. 



As mensagens de erro do sistema s3o mostradas na hora devida. 
Para vc-las, cxperimente passear pela RAM do micro a partir do 
endereco 100H, que c onde os programas com extensao COM sao 
carrcgados. Examine tamb6m a area rcscrvada para as variavcis do 
BASIC. Para examinar um programa qualquer, preencha uma Srca 
de memdria com um dado valor (usualmente 0) e use o comando 
DLOAD. Voce tern cerca dc 50K livres ou mais, dependendo do 
numcro de drives utilizados. Aprcnderemos como utilizi-los inte- 
gralmente e tamb6m criar programas que os ulilizcm. 

Infelizmente, esta versSo so serve para micro computadores 
equipados com disco. Esta" sendo prcparada uma versao que utiliza 
o cassclc c que, breve, sera" publicada. Nos prdximos numeros, 
comecarcmos a analisaras rotinas do MSXDEBUG c aprcnderemos 
como implementar rotinas e a udlizar oulras. Aguardem as no- 
vidades. 
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Sergio Duric Calheiros e estudanle da PUC-RJ, onde cursa 
Engenharia de Computa^ao, desde 1985. Auto-didata em 
Basic e Assembler e algumas ou tras linguagens, programando 
em micros da linha MSX e PC. 



100 CLS:KEY OFF 


608 DATA C9, 87, 86, 17, C5, CD, 88,02,652 


1120 DATA 83, DA, 62, B4, CD, 76, 84, 11, 667 


118 PRINT "HSXDEBUG VERSAO 1.0" 


610 DATA CD,18,0B,C1,10,F6,C3,0B,981 


1130 DATA 69, 85, CD, 24, BB, 86, 88, 11, 393 


128 GERAL=B 


620 DATA 02, 86, 18, 3E, IF, CD, 11,88,358 


1148 DATA 7F,85,CD,24,0B,10,F8,C3,843 


138 PRINT'PROSRAHA SENOO CONVERTIDO!" 


638 DATA 18,F9,C9,11,91,0D,2A,83,814 


1150 DATA 39, BB, CD, OF, 82, 28, 11, CD, 768 


148 OPEN ■NSXDEBUG.COM' AS M LEN=1 


648 DATA 0D, 22, 85, 00, CD, 09, 08, 13, 434 


1168 DATA 48, 88,11, 81, 88, CD, 7A, 82, 422 


158 FIELD M,l AS A$ 


650 DATA 06, 08, 00,21,17, BE, C5.2A, 544 


1178 DATA 3E,10,C0,11,BB,C3,39,8B,587 


160 FOR IX=1 TO 384 


660 DATA B3,BD,7E,32,85,80,CD,58,751 


1180 DATA CD,40,06,06,07,3E,1C,CD,58B 


17B LOCATE 8,4:PRINT "CONTAGEH: " ; IX 


670 DATA 02. 00,23, 21, 85, 0D, CD, FB, 893 


1198 DATA 11,8B,10,F9,11,B7,00,CO,522 


180 SOHA=0 


688 DATA 07,CD,FB,07,13,2A,83,0D,675 


1200 DATA 84,02,CD,39,0B,C3,EA,03,839 


198 FOR J"/.=l TO 8 


698 DATA 23, 22, 83,80, CI, IB, OF, AF, 820 


1210 DATA CD, 42, 03, DA, 62, 04, CD, 76, 917 


208 READ K$ : K=VAL ( * AH" +K« ) : SOMA=SOMA+C 


788 DATA 12, 00,77,80, 11, 91, 0D,CD,738 


1270 DATA 04, 11, 69, 05, CD, 24, 06, C3, 578 


218 LSET A$=CHR$(K):PUT ft! 


710 DATA 24,06, 11, 17, 0E,C3, 24, 08, 343 


1238 DATA 39,88,CD,53,03,D0,CD,4B,836 


220 NEXT J7. 


720 DATA DD,36,BB,2E,FE,2B,D8,FE,1B77 


1248 DATA BB,11,BB,B8,CD,7A,B2,CD,57B 


230 READ Y, 


738 DATA FF,C8,FE,7F,C8,DD,77,00,1376 


1250 DATA AC,82,3E,1E,C0,11,8B,C3,694 


248 GERAL=GERAL+SOMA 


748 DATA C9, 06, 00, 4F,7E,A7 ,C8,04,783 


12&B DATA 39,BB,CD,01,B2,28,12,CD,747 


250 IF KOSOMA THEN PRINT "ERRO NA LINH 


758 DATA B9,23,28,F8,EB,78,2B,2B,941 


1278 DATA 48,88,11,81,08,00,84,82,432 


A"; I I* 18+298: END 


768 DATA 23,23,10,FC,7E,23,66,6F,712 


1288 DATA 11,7F,05,CD,24,B8,C3,39,653 


268 NEXT IX 


77B DATA 37,C9,2A,83,B0,A7,ED,52,928 


1290 DATA 86, CD, 40,88, 86, 87,11,83, 452 


270 READ K 


788 DATA 22, 83, BD,C9,2A, 83,80,19,590 


1388 DATA 85. CD, 24, 86, IB, F8, 11, 87, 545 


280 IF KOGERAL THEN PRINT "ERRO NO PRO 


790 DATA 22, 83, 8D,C9,2A, 83, 80,22,599 


1318 DATA 8B,CD,7A,B2,CD,39,8B,C3,797 


6RAHA" :END 


888 DATA 7F,0D,CD,E9,B2,CD,39,BB,853 


1320 DATA D8, 83, CD, OF, 82, 28, 12, CD, 912 


290 CLOSE: END 


810 DATA CD,E8,8A,CD,EC,04,11,93,1056 


1338 DATA 48, BB, 11, 81, 88, CD, 7A, 82, 422 


388 DATA C3,B9,B7,CD,C9,88,CD,9A,1112 


820 DATA 05, 21, 77,05, CD, 61, 02, DC, 686 


1348 DATA 11,83,85,CD,24,0B,C3,39,657 


310 DATA B8,CD,FA,08,7D,2A,8B,0D,790 


838 DATA AF, 81, 18, EC, 2A, 81, BO, 11, 637 


1358 DATA 0B,CD,40,0B,06,07,11,7F,448 


328 DATA ED,5B,B9,0D,12,A7,ED,52,9B2 


840 DATA 08, 00, A7, ED, 52, 22, 81,00, 670 


1360 DATA 85,C0,24,8B,1B,F8,11,B7,545 


330 DATA 44,4D,0B,EB,54,5D,13,ED,824 


850 DATA C9,2A,81,0D,11,08,88,19,435 


1378 DATA 00,CD,84,B2.CO.39.BB.C3.887 


340 DATA B8,C9,CD,C9,B8,CD,9A,08,1158 


868 DATA 22,81,BD,C9,D1,2A,7F,BD,768 


1388 DATA EA, 83, CD, 48, 86, 11, 88, 88, 542 


350 DATA CD, FA, 08, 22, 70, 80, ED, 5B, 963 


878 DATA 22, 83, 80, CD, 48, 88, C3, 81, 654 


1390 DATA CD, 84, 02, CD, 69, 02, 3E, IF, 824 


360 DATA 39, 0D, CD, 33,08,38, IB, 2A, 542 


888 DATA 82, 2A, 81, 00,11, 07,00, 19, 235 


148e DATA CD,ll,BB,C3,39,8B,C0,4e,765 


370 DATA 8B,0D,ED,5B,89,0D,A7,ED,1034 


398 DATA EO,5B,83,0O,C3,33,0B,2A,771 


1410 DATA 06, CD, 18, 06, 2A,7F, 00,22, 467 


380 DATA 52,44,4D,2A,S9,0D,09,E5,657 


900 DATA 81, BD,ED,5B, 83, BD,C3, 33,868 


1420 DATA 83, 00,11,08,80, 19, 22, 7F, 355 


390 DATA 2A,7D,8D,89,01,EB,B3,ED,873 


910 DATA 8B,2A,7F,BD,22,83,8D,11,388 


1430 DATA 8D, CD, 88, 82, 11,88,88, CD,461 


488 DATA B8,C9,2A,8B,BD, ED, 58,89, 1044 


928 DATA CB, 88, CD, 7A, 82, 22, 81, 80,697 


1448 DATA 7A, 82, C3.B9, 82, FE, 28,08,1088 


410 DATA 8D,A7,ED,52,44,4D,2A,7D,811 


938 DATA 3E.8B, CD, 11, 88,11,69,05,433 


1458 DATA F5, CD, 40, 08,F1,2A, 83,00,952 


428 DATA BD,83,EB,ED,8B,C9,CD,9A,1224 


940 DATA C3, 24,86, CD, 48, 86,11,69,644 


1460 DATA 77,E5,2A,B1,0D,22,83,0D,710 


438 DATA 08, CD, FA, 08, CD, 72, 01, C3, 986 


958 DATA 85, CD, 24, BB, 86, 08, 11, 7F, 415 


1478 DATA 3E,8D,C0,11,8B,CD,BB,B2,526 


440 DATA C9,07,E9,CD,FA,0A,21,91,1B84 


960 DATA 05, CO, 24,06, 10, F8, CD, 52, 888 


1488 DATA E1,22,B3,BD,3A,81,BD,6F,714 


458 DATA 80, 11, 92, 80,81,24,80, 36,280 


978 DATA B5,CD,39,BB,CD,E8,BA,CD,938 


1498 DATA 3A,83,B0,95,6F,3E,8B,95,681 


460 DATA 20,ED,B0,CD,9A,88,2A,B9,991 


988 DATA 95, 84, 11, Al, 05, 21, 77, 05, 493 


1588 DATA 47,3E,1D,CD,11,BB,1B,F9,66B 


470 DATA 8D, CD, £9,88,22, 83, 80, FO, 890 


990 DATA CD,61,02,DC,AF,01,18,EC,960 


1518 DATA CD,39,88,3E,1C,C9,FE,3B,B66 


480 DATA 21,15,0B,CD,74,F9,CD,0F,B55 


1000 DATA D1,D1,2A,7F, 00, 22,83,00,778 


1528 DATA DB,4F,3£,66,B9,79,08,FE,1235 


490 DATA 08,CD,F2,01,CD,E8,0A,11,923 


181B DATA C3,48,8B,D1,CD,40,B6,C3,954 


1538 DATA 61, 38, 82, 06, 20, 4F,3E, 46, 612 


580 DATA 87, 85, 21, 70, 05, CD,61, 02, 594 


1028 DATA 32, 05, 2A,7F, 00,11, 88, 00, 262 


1540 DATA 89,79,D8,FE,61,38,03,FE,11B6 


510 DATA 30,F2,CD,AF,01,!8,ED,E9,1165 


1030 DATA A7,ED,52,ED I 5B,83,B0,EB,1193 


1558 DATA 4!,D8,A7,C9,CD,CE,B4,D8,128B 


520 DATA CD, 18, 06, C3, 08, 02, 11, C8, 665 


1840 DATA C3,33,0B,2A,7F,0D,11,B9,641 


1560 DATA 21, 25, 0E, 77, F5, CD, 40,06,728 


530 DATA 00, CD, 7A, 02, 11, 65, 85, CD, 657 


1050 DATA 00, A7, ED, 52, ED, 5B, 83,80, 958 


1570 DATA Fl, CO, 11, 06, CO, 39, 08, CD, 952 


548 DATA 24, 08, CD,0B, 02, CD, 01, 02, 473 


1868 DATA C3,33,8B,CD,D1,B2,28,11,730 


1580 DATA E8,0A,CD,CE,04,3B,F8,21,994 


550 DATA 11,B8,00,CD,84,B2,C9,11,758 


1070 DATA CO, 48, 86,11, 81, 80, CD, 84, 635 


159B DATA 25, BE, 23, 77, 23, 36, BB.F5, 539 


560 DATA 80, 01, CD, 7A, 02, 3E, 86, CD, 736 


1888 DATA 82,3E,1C,CD,11,B8,C3,39,577 


1680 DATA CD,40,08,F1,CD,U,8B,CD,959 


578 DATA 11,88,C3,F2,81,3E,08,CD,744 


1898 DATA 88, CD, 48, 06,06, 07, 3E, 10,395 


1610 DATA FA,08,7D,2A,83,8D,77,E5,9!7 


580 DATA 11,0B,C3,F2,81,CD,B1,B2,674 


1188 DATA CD.ll, 86,18, F9, 11, 87, 00,522 


1620 DATA 2A,81,0D,22,83,0D,3E,0D,437 


598 DATA FD,21,2B,BB,CD,74,F9,C3,ii85 


1110 DATA CD, 7A, 02, CD, 39, 06, CD, 42, 873 


1630 DATA CD, 11, 06, CD, 0B, 02, El, 22, 710 



CPU 17 
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1650 

1668 

167B 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1778 

1780 

1798 

1800 

1810 

1820 

1830 

1840 

1850 

1868 

1870 

1888 

1898 

1988 

1918 

1928 

1938 

1948 

1958 

1968 

1978 

1988 

1998 

2888 

2818 

202B 

2830 

2040 

2050 

2868 

2878 

2888 

2898 

2188 

2118 

2128 

2130 

2140 

2150 



DATA 83, BD, 11, 69, 05, CD, 24, 0B, 523 
DATA 3A, 81 ,8D,6F,3A,83,BD, 95,662 
DATA A7, 28, 09, 47, 11, 7F, 05, CD, 641 
DATA 24,8B,18,F8,CD,39,B8,3E,646 
DATA 1C,C9,3A,81,0D,6F,3A,83,729 
DATA 0D,95,A7,C8,47,3£,1C,CD,895 
DATA 11,BB,1B,F9,C9,BB,1B,4C,6B8 
DATA 8B,BD,1C,1C,1C,1C,1C,§8,153 
DATA IB, 0D, IF, IE, ID, 1C, 88, IB, 185 
DATA 8D,1F,1E,1D,1C,88,88,1C,167 
DATA 1C,1C,B8,1D,1D,1D,B8,E5,372 
DATA Bl,8C,02,B8,81,B6,81,CF,7ie 
DATA 81, DD, 81, C4, 82,83, 83,08, 643 
DATA B3,EA, 83, 32, 84, 82, 84,32, 358 
DATA B4,3B,B3,3B,83,8E,B3,EA,496 
DATA 83, AA, 83, 63, 83, AA, 83, 21, 484 
DATA 17, BE, 86,86, 36, 3F, 23, IB, 222 
DATA FB, CD, 66, 87, CD, 4A, 07, 11, 868 
DATA BB, 8D, BE, 19, BC, CD, 85,88,461 
DATA 11, 5C, 88, BE, 11, CD, 85, 88, 358 
DATA B7. 11, B6, 06, C2, 86, 06,11,621 
DATA 5C,BB,CD,18,BB,86,83,AF,516 
DATA 32,C7,BD,11,BC,8D,CD,24,721 
DATA 8B,11,59,BC,CD,24,BB,BE,395 
DATA 12,C5,CD,85,BB,C1,B7,CB,993 
DATA 18, E5, CD, 18, 8B, 86,83, 18, 518 
DATA DE,CD,9A,8B,CD,86,B9,CD,1142 
DATA 66, 87, CD, 9A, 88, CD, FA, 88, 939 
DATA 22,89,80,11,5C,BB,CD,4A,572 
DATA 87,C0,3F,B6,11,45,BC,C2,573 
DATA B6,BB,CD,72,B7,ED,5B,89,8B8 
DATA BD,D5,8E,19,8C,CD,B5,B8,4B7 
DATA 11,5C,B8,CD,48,B6,D1,C8,793 
DATA 21,88,BB,19,EB,18,EA,D5,892 
DATA 8E,BF,CD,B5,8B,B7,D1,C9,832 
DATA E5,D5,C5,BE,14,CD,B5,88,883 
DATA FE,82,11,1B,8C,CA,B6,BB,52B 
DATA C1,DI,E1,87,C9,CD,B6,86,14B4 
DATA CD, 66,87, CD, 4A, 87, CD, 3F, 868 
DATA B6,2B,B3,CD,3E,B7,11,5C,424 
DATA 88, CD, B5, 87, 11, 88, 88, BE, 376 
DATA 19,8C,C3,B5,8B,CD,A5,88,615 
DATA CD, 66, 87, CD, 72, 87, CD, 5D, 938 
DATA 86, 2A, 89,80, ED, 5B, 88,80,678 
DATA CD,33,BB,3B,1B,BB,11,8B,487 
DATA 88, 81, 80, 00, ED, B0, 11, 5C, 651 
DATA 00, CD, 2B, 07, 2A, 89, 80, 11, 464 
DATA 80,08,19,22,89,00,18,09,578 
DATA 11,5C,BB,C3,18,B7,2A,BB,516 
DATA BD,E0,5B,89,BD,A7,ED,52,977 
DATA E5,CD,DB,06,CD,F6,06,O1,1325 
DATA 06,0A,CB,3A,CB,1B,10,FA,773 



2160 
2170 
2188 
2190 
2208 
2218 
2228 
2238 
2248 
2258 
2268 



2298 

2388 

2318 

2328 

2338 

2348 

2358 

236B 

2378 

2388 

2398 

2408 

2418 

2428 

2438 

2440 

2458 

2460 

2478 

248B 

2498 

258B 

2510 

2528 

2538 

254B 

2558 

2568 

2578 

2588 

2598 

2688 

2618 

2628 

2638 

2648 

2658 

2668 

2678 



DATA 13, CD, 33, BB, 08,11,03, 86, 733 
DATA C3,B6,B8,21,Ei,BD,86,BB,58B 
DATA 36,3F,23,1B,FB,11,6B,0D,636 
DATA BE, 19, BC, CD, 85, 88, 11. 5C, 378 
DATA BB,8E,11,C3,85,BB,1E,BB,26I 
DATA BE, IB, CD, 85, 88, FE, 82, C8, 787 
DATA CB,3C,CB,10,C9,E5,D5,C5,1335 
DATA BE, 16, CD, 85, 08, 3C, 11, C3, 518 
DATA BB,CA,B6,BB,C1,D1,E1,C9,1B5B 
DATA E5,D5,C5, BE, 18, CD, 85,88,879 
DATA B7,11,F3,8B,C2,B6,BB,C1,858 
DATA D1,E1,C9,E5,D5,C5,BE,15,13B9 
DATA CD, 85,88,67,11, 28, 8C,C2, 648 
DATA 86,BB,C1,01,E1,C9,E5,D5,1287 
DATA C5,BE,13,CD,B5,BB,C1,D1,842 
DATA El, C9, 21, EC, BD, £5, 01, 13, 1165 
DATA 36, BB, 81, IB, 8B, ED, 88,21,525 
DATA EB,8D,ll,5C,8fl,81,25,B8,384 
DATA ED, 68, 11, 5C, 80, C9, 21, 17, 779 
DATA 8E, 11, El, BD, 81,08,88, ED, 518 
DATA BB.C9, 21, 17, BE, 11, 85, BE, 483 
DATA 81, 88,88, ED, 68, 3E.2E, 12, 548 
DATA 13,B1,B3,8B,E0,B8,AF,12,629 
DATA C9, ED, 78,86, 88, 3E, 28, 32, 719 
DATA BB,F3 5 21,91,0D,11,92,BD,786 
DATA 81, FF, 88, 36, 88, ED, B8, 21, 756 
DATA 17, BE, 54, 50,13,36, 28, 81,328 
DATA BB,B8,ED,B8,CD,72,87,AF,925 
DATA 32,A9,FC,£D-7B,B6,BB,CD,1B42 
DATA FA,8A,CD,8F,BB,!1,6B,BC,616 
DATA CD,24,BB,CD,18,BB,C3,2B,719 
DATA 88, ED, 76,86,88, CD, 18,8B, 614 
DATA C3,28,B8,CD,FA,BA,F0,21,9B6 
DATA A8,F9,DD,21,3E,B0,CD,74,1046 
DATA F9,CD,18,0B,C3,00,00,11,701 
DATA B6,0D,CD,09,08,AF,12,11,627 
DATA B6, 00, CD, 24, 0B, 11, 16,08, 499 
DATA C3,24,BB,AF,ED,6F,FE,BA,1B29 
DATA 3B,B2,C6,B7,C6,3B,12,13,546 
DATA C9, 21, 85,0D,23,CD,F8,07, 878 
DATA CD,FB,07,2B,CD,FB,B7,C3,1164 
DATA FB, 07, 00, ID, ID, ID, 10, 00,374 
DATA CD,1B,BB,11,5C,BC,C0,24,682 
DATA 8B,C0,62,8A,CD,27,89,FE,831 
DATA 2B,2B,ED,A7,28,EA,CD,4E,1B33 
DATA 88, 78, 21, 82, BC, 23, 23, IB, 389 
DATA FC,2B,2B,7E,23,66,6F,C0,917 
DATA 40, 88, C3,C9, 87, £9,22, 87, 898 
DATA BD,£D,5B, 87, 80,21, D2,BC,744 
DATA 86,fll,EB,7E,EB,A7,28,24,846 
DATA FE, 28. 28, 20, FE, 61,38,02, 767 
DATA 06, 20, BE, 23, 13, 28, EB.7E, 891 



2t30 


DATA 


2690 DATA 


2708 


DATA 


271B DATA 


2720 


DATA 


2738 DATA 


2748 


DATA 


2758 


DATA 


2768 


DATA 


2778 DATA 


2788 


DATA 


2798 


DATA 


2888 


DATA 


2818 


DATA 


2820 


DATA 


2830 


DATA 


2840 


DATA 


2850 DATA 


2860 


DATA 


2870 DATA 


2888 DATA 


2898 


DATA 


29B8 


DATA 


2918 


DATA 


2928 


DATA 


2938 


DATA 


2948 


DATA 


2958 


DATA 


2968 


DATA 


2978 DATA 


2988 


DATA 


2998 DATA 


388B 


DATA 


3818 DATA 


3828 


DATA 


3B3B 


DATA 


3848 


DATA 


385B 


DATA 


386B 


DATA 


387B DATA 


3888 DATA 


3B9B 


DATA 


3188 


DATA 


3118 


DATA 


3120 


DATA 


313B 


DATA 


3140 DATA 


3158 


DATA 


3168 DATA 


3178 


DATA 


318B 


DATA 


3198 


DATA 



A7,23,2B,FB,84,7E,F£,FF,1124 

ED, 56, 87, BD, 28, DC, 11, 31, 794 

BC,C3,B6,8B,7E,21,31,BC,444 

EB,A7,C2,B6,0B,EB,C5,21,1B7B 

25, BE, 81, 28, 88, EB, ED, B8, 732 

C1,C9,CD,27,B9,A7,CB,11,1823 

8A,BB,C3,B6,BB,CD,9A,B8,72B 

CD, 86, 09, CD, 9A, 88, CD, FA, 1170 

08, 22, 89,80, E5, CD, 9A, 08, 788 

CD,FA,08,22,8B,8D,D1,CD,1B63 

33,BB,11,9E,B6,DA,86,BB,483 

C9,CD,9A,B8,CD,FA,B8,22,1865 

89,BD,CD,9A,B8,CD,FA,B8,98B 

22,8B,BD,ED,5B,89,BD,CD,869 

33,8B,D8,11,9E,8B,C3,B6,657 

8B,C2,FA,B8,3E,10,CD,11,776 

BB,E5,22,85,BD,CD,E7,B7,863 

E1,C9,CD,27,B9,11,8A,BB,845 

CA,86,8B,CD,3B,B9,21,8B,525 

BB,22,8D,BD,21,12,BE,7£,379 

7E,A7,28,23,FE,20,28,1F,725 

C0,65,B9,11,9E,B6,0A,B6,725 

8B, CD, 78,89, 23, 18, E8, 21, 672 

25,8E,7E,A7,C8,B6,2B,FE,836 

2B,C8,23,7E,18,F9,C9,2A,893 

8D,BD,C9,11,12,BE,7E,FE,784 

38,23,28,FA,2B,7E,A7,28,749 

8F,FE,2B,28,BC,FE,61,3B,76B 

82, 06, 28,12, 13.23, 18,ED, 581 

2B,AF, 12, 23, 81, 28,88,11, 321 

25,8E,E0,BB,C9,47,FE,38,1B38 

D8,3E,46,B8,D8,78,FE,3A,118B 

38, 85, FE, 41, DS, 06, 17, 06, 1847 

:B,A7,C9,E5,21,8D,BD,ED,1B53 

6F,23,ED,6F,E1,C9,CD,27,1164 

B9,86,88,7E,A7,CA,27,8A,567 

FE,2E,CA,12,8A,11,17,BE,584 

7E,4F,A7,28,27,FE,2B,28,777 

23,F£,2E,28,1F,FE,61,38,813 

82,06, 28, CD, 04, 89, 12, 13, 711 

23,18,E5,86,03,7E,FE,20,7B1 

28,5E,A7,28,5B,FE,2E,28,772 

29, C3, 12, BA.3E, 28,12,13,395 

18, FA, 7E,FE,2E, 28, 16,88,759 

86,B3,18,44,4F,E5,D5,11,639 

AA,BB,21,58,BA,7E,B9,CA,817 

B6,88,A7,23,2B,F7,D1,E1,932 

79,C9,23,B6,B3,7E,A7,28,699 

21, FE, 28, 28, 10, FE, 28, 28, 714 

1F,A7,28,1C,F£,61,38,B2,675 

D6, 28, CD, 04, 89, 12, 23, 13,744 

7E,18,EA,FE,2B,28,BF,A7,884 



18 CPU 



J200 DATA 28, BC,11,AA,BB,C3, 86,08, 462 
3218 DATA 3E, 28, 12, 13, IB, FA, 11, 25, 451 
3228 DATA BE, 81, 28, 88, ED, B0,C9, 21, 694 
3238 DATA B5,BE,7E,11,AA,B8,FE,2B,629 
3248 DATA CA, 86, BB,A7,CA, 86,86,11,622 
325B DATA 17, BE, 81,88, 00, ED, 8B, 23, 494 
3268 DATA 81,B3,8B,ED,BB,3E,1D,CD,713 
3278 DATA 1].B8,11,B5,BE,C3,24,BB,3B6 
3288 DATA 2C,2E,2F,5C,7C,3F,2A,3B,517 
329B DATA 3A,5B,5D,2B,3B,22,8B,C0,585 
3388 DATA 18, 88,21, 25, BE, 22, 8F,8D, 389 
3318 DATA 36,2B,3E,3E,CD,il,8B,3E,5B5 
3328 DATA 5F,CD,11,BB,CD,CD,8A,FE,18B2 
3338 DATA 8D,28,42,FE,1D,2B,84,FE,788 
3348 DATA 88,2B,15,CD,DD,BA,A7,28,7B4 
3358 DATA E8,2A,8F,8D,2B,22,8F,BD,666 
3368 DATA 11,F3,BA,C0,24,BB,18,D7,761 
3370 DATA 47,FE,2B,38,D7,3E,A3,B8,1B37 
338B DATA 78,38,D1,CD,0D,8A,FE,2B,11B7 
3398 DATA 38, CA,3E, ID, CD, 11, 88,78,694 
3480 DATA CD. 11, 86, 2A,8F, 80,78,23,578 
3418 DATA 22,8F,BD,18,B2,3£,1D,CD,688 
342B DATA ll,BB,3E,2fl,CD,ll,BB,2A,397 
3438 DATA 8F,BD,36,B8,C9,1E,FF,8£,718 
3448 DATA 86,CD,85,BB,B7,28,F6,FE,939 
3458 DATA 1B,CA,B3,87,C9,11,25,BE,684 
3468 DATA 2A,BF,8D,A7,ED,52,7D,C9,101B 
347B DATA 1E,FF,BE,B6,C0,B5,8B,B7,698 
3488 DATA 2B,F6,C9,1D,1D,28,2B,1D,638 
3498 DATA ID, 88,21,47, 88,11, 74, F9, 526 
358B DATA 81, 34, 88, ED, 68, C9, CD, 18, 896 
351B DATA BB,CD,24,flB,C3,C9,B7,3E,728 
3528 DATA BC,F0,21,BC,88,C3,74,F9,1854 



3538 DATA 05,11,21,BB,CD,24,BB,D1,735 
354B DATA C9,BD,BA,8B,EB,7E,EB,A7,987 
355B DATA C8,FD,21,BC,B8,CD,74,F9,1252 
356B DATA 13,1B,F1,7C,92,C8,7D,93,1B18 
3578 DATA C9,FD,21,E6,89,C3,74,F9,1286 
3588 DATA FD,21,33,BA,C3,74,F9,F3.115B 
3590 DATA ED, 73, 99, F9, 31, FB, FA, 88, 1381 
36BB DATA DB, A8, 32, 96, F9,E6,FC, 03,1534 
3618 DATA A8,88,CD,96,F9,88,3A,9B,1881 
3628 DATA F9,D3,A8,88,ED,7B,99,F9,1398 
3638 DATA C9,FD,E9,C9, 88, 88,88,88,888 
3648 DATA BB,B8,8B,D8,A8,E6,FB,D3,1B6B 
3658 DATA A8.DD, £9,41,72,71, 75,69, 1136 
3668 DATA 76, 6F, 28, 69, 6C, 65,67, 61, 775 
3678 DATA 6C, 88,44, 61, 64, 6F, 73, 28, 631 
3688 DATA 69, 6E, 73, 75, 66, 69, 63, 69, 858 
3698 DATA 65, 6E, 74, 65, 73, 88, 44, 61, 788 
378B DATA 64,6F,2B,69,6C,65,67,61,757 
3718 DATA 6C, 88, 4E,6F, 60,65, 28,69, 644 
3728 DATA 6C,65,67,61,6C,BB,53,65,781 
3738 DATA 60,28,61,72,71,75,69,76,885 
3748 DATA 6F, 73, 88,44,69, 72, 65, 74, 738 
3758 DATA 6F, 72, 69, 6F, 28,63, 68, 65,777 
3768 DATA 69,6F,8B,4D,65,6D,6F,72,728 
377B DATA 69, 61, 28, 64, 69, 73, 7B.6F, 777 
378B DATA 6E,69,76,65,6C,2B,69,6E,789 
3798 DATA 73, 75, 66, 69, 63, 69, 65, 6E, 854 
38BB DATA 74,65,00,4E,61,6F,2B,63,634 
3818 DATA 6F,6£,73,69,67,6F,2B,66,789 
382B DATA 65, 63, 68, 61, 72, 2B,6F, 28,698 
3838 DATA 61, 72, 71, 75, 69, 76, 6F,8B, 775 
3848 DATA 45,72, 72,6F, 28,64,65, 28,673 
3858 DATA 6C, 65, 69, 74, 75, 72, 61, 88,758 



3868 DATA 45, 72, 72,6F, 28, 64, 65, 28, 673 
3878 DATA 67,72,61,76,61,63,61,6F,836 
3880 DATA BB,43,6F,6D,61,6E,64,6F,7B5 
389B DATA 28, 69,6E, 65, 78,69, 73, 74,884 
3988 DATA 65, 6E, 74, 65, 88,41, 72, 71, 728 
3918 DATA 75,69,76,6F,2B,69,6E,65,799 
3928 DATA 78,69, 73, 74, 65, 6E, 74, 65, 884 
393B DATA BB, 28, 28, 8B, 53, 49,53,88, 383 
394B DATA 40, 53, 58, 28, 44, 65, 62, 75,664 
3958 DATA 67, 28, 56, 65, 72, 73, 61, 6F, 759 
3968 DATA 28,31,2E,3B,BD,BA,43,5B,345 
397B DATA 55, 28, 20, 28, 38, 31, 2F, 38, 394 
3988 DATA 39, 88, 03, 87, 22, 81, A3, Bl, 314 
399B DATA 66, 81, 73, 81, AF, 85, 7D, 86,538 
4888 DATA 81,66,88,88,88,88,88,88,7 
4810 DATA 00,00,00,00,00,00,08,88,8 
4828 DATA 00,80,00,00,00,00,00,88,8 
4B3B DATA 00,00,00,BB,8B,B8,B8,8B,B 
4048 DATA 00,88,88,88,88,00,00,00,8 
4850 DATA 00,00,00,00,88,88,88,88,8 
4860 DATA 00,08,88,88,88,88,88,88,8 
4878 DATA 80,80,00,00,00,00,80,88,0 
4B8B DATA B8,BB,44,4F,53,8B,4D,4F,3B6 
4898 DATA 56,45,88, 46, 49,4C,4C, 88,458 
418B DATA 45,58,45,43,88,44,49,53,517 
4118 DATA 58,88,44,49,52,88,44,53,454 
4128 DATA 41,56, 45, 88, 44, 4C,4F, 41, 588 
4138 DATA 44, 88, FF, 88, 88, BB, 88,88,323 
4148 DATA 276483 



CONVITE AOS NAO SOCIOS DO MISC 

Seja voce um usuario profissional ou de lazer. convidamos a participar do melhor clube de MSX do Brasil. A proposta funda- 
mental do MISC 6 dar apoio a ni'vel de infonnacSo, servico e produto. 
Esta retaguarda 6 proporcionada por uma jovem equipe de especialistas em MSX. O Jomal do MSX 6 uma exclusividade dos 
associados. Para ingressar no MISC voce paga uma taxa linica de Ncz$ 6,50 ate o fun do congelamento. 
Pague com cheque nominal a EMBASS EDITORA LTDA.,ou atrav^s de deposito no BRADESCO agenda 0108 conta 141 .184-5 
Ao fazer sua inscricao informe-nos se quer receber sua colecSo-brinde de jogos em K7 ou disco 5 1/4. 
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DUMP DE TELA GRAFICA 



JULIO VELLOSO 




Para o usuario que nao possui uma impressora colorida, desen- 
volvi uma rotina que imprime uma tela grafica com diversas 
tonalidades de preto, dando urn aspecto muito bonito a sua tela, que 
antes, com os "dump's" comuns, so aparecia com apenas uma cor e, 
em certos casos, quando o desenho exigia varias cores, ficava em 
parte cortado. perdendo muito na sua bcleza. 

A ROTINA 

A rotina fcita em assembler, ficando de B(X)0h ate" BFE1 H, im- 
prime uma tela grdfica (modo 'SCREEN 2') em tamanho dobrado, 
utilizando 15 matrizes 2x2, substituindo as 1 5 cores do micro MSX 
por suas respcclivas tonalidades de preto, como se fosse uma 
televisao preto e branco. 

Como a impressora GRAFIX MTA possui 480 pontos para a 
impressao grafica e a tela no modo grafico possui 256 pontos na 
horizontal, a tela impressa ficaria com 512 pontos, cortando, por- 
tanto, 3.072 pontos de sua tela. Se a impressao fosse correta, os 
usuarios desta impressora ficariam prejudicados. Entao, eu optci 
pela impressao deitada, que sao 192 linhas que impressas, por csta 
rotina, ficaria com 384 pontos podendo, portanto, ser efetuada. 
MONTANDO A ROTINA 

Para entrar com a rotina, digite o programa Basic da listagem 1 
c execute-o com o comando RUN. O programa ira montar a rotina 



nos seus respectivos endereijos e, em seguida, grava-la em formalo 
binario. Feilo isto, o programa Basic nao lhc sera mais litil, podendo, 
portanto, ser apagado. Antes, c aconselhavel tcstar a rotina. 
UTILIZANDO A ROTINA 

Para testar a rotina, entre com a listagem 2 c o programa montara 
uma tela com todas as cores do micro c cm seguida efetuara a sua 
impressao. 

Para imprimir outras tela? graficas, como as geradas pelo GRA- 
PHOS III, por exemplo, ou pelo comando BSAVE "NOME", em 
disco, entre com o scguinte programa em Basic: 
10 SCREEN 2 

20BLOAD "NOME DA TELA", R (ou , S - conf orme o caso) 
3 BLQAD "DUMP . EXE " , R 
E bons desenhos! 



Julio Velloso e estudante da UCP, na qua! cursa o 4 9 periodo 

do Curso de Ciencia da Computacao. Programa em Basic, 

Assembler, Pascal e DBase III, ha 4 anos, em equipamentos 

que utilizam o microprocessador Z80 e PC, principalmente o 

MSX. 

Eautor do programa utiIitariodec6piaBKP,comerciali/.ado 

inicialmente pela Ciberne e do Sistema Operacional BKP 
Disco, comercializado pela Paulisoft Informatica. 
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le ' 

20 ' Prograia para mpresao de tela 

38 ' 

48 ' Por: Julio Velloso 

50 ' 

60 F0RI=1T0481:READA$:P0KE &HBDFF+I,VAL 
("«rH"+A*):NEXTI 

78 BSAVE"DUHP.EXE",&HBE00,4HBFE1 

80 END 

108 DATA DB,A8,47,E6,3B,4F,CB,39,CB,39, 
78,E6,F0,B1,D3,A8,3E,18,CD,A5,0,3E,41,C 

D,A5,0,3E,8,CD,A5,0,CD,61,BF,3A,EA,F3,2 

1,CE,BF,E6,F,5F,16,0,19,7E,21,CE,BF 

110 DATA 77,6,20,21,F8,0,C5,6,8,E5,C5,C 

D,5B,BE,3A 1 E0,BF,3C,32,E0,BF,C1,E1,10,F 

B,AF,32,EB,BF,11,8,B,A7,ED,52,C1,1B,EB, 

C3,B1,BF,6,C8,11,F8,B,CD,9C,BE,CD 

120 DATA 8E,BE,E5,D5,C5,CD,AD,BE,C1,D1, 

El,7D,E6,7,FE,7,28,l,19,23,iB,E6,C9,3E, 

lB J CD,A5,i,3E,4B,CD,A5 J 8,7B,CD,A5,B,7A, 

CD,A5,8,C9,C5,E,8,6,8,CB,17,CB 

130 DATA 19,10,FA,79,C1,C9,CD,A2,BE,DB, 

98,C9,7D,F3,D3,99,7C,E6,3F,D3,99,FB,C9, 

F5,3A,EB,BF,A7,CA,CA,BF,47,F1,17,1B,FD, 



CB,7F,20,17,EB,21,0,20,19,CD,9C,BE,E6 

140 DATA F,21,CE,BF,5F,16,B,19,7E,4F,CD 

,E5,BE,C9,EB,21,0,2B,i9,CD,9C,BE,E6,F8, 

1F,1F,1F,1F,1B,E3,AF,C5,CB,59,2B,4,CB,B 

F,18,2,CB,FF,CB,51,20,4,CB,B7,18,2,CB 

150 DATA F7,4F,3A,DE,BF,A7,CA,C2,BF,47, 

79,1F,1F,!8,FC,4F,FD,7E,0,B1,FD,77,8,FD 

,23,AF,C1,CB,49,20,4,CB,BF,18,2,CB,FF,C 

B, 41,20,4, CB, 87,18, 2, CB,F7,4F,3A,DE 

160 DATA BF,A7,CA,C6,BF,47,79,1F,1F,1B, 

FC,4F,FD,7E,0,B1,FB,77,0,FD,23,3A,DF,BF 

,3C,32,DF,BF,FE,C0,2B,1,C9,AF,32,DF,BF, 

FD,21,0,4B,3A,DE,BF,3C,32,DE,BF,FE,4 

17B DATA 28, 15, C9.E5, 05,05,21,8, 48,34,0 

,11,1,40,1,0,30,ED,B8,C1,D1,£1,C9,AF,32 

,DE,BF,D5,C5,1,88,1,FD,21,0,40,11,8B,1, 

CD,7B,BE,FD.7E,0,CD,A5,0,CD,A7 

180 DATA BF,FD,23,B,78,B1,28,F0,3E,A,CD 

,A5,0,C1,D1,FD,21,0,4B,CD,61,BF,C9,CD,8 

7,0,D0,6,B,FD,E1,10,FC,DB,AB,E6,F0,D3,A 

8,3E,A,CD,A5,0,3E,D,CD,A5,0,C9 

190 DATA 79,C3,9,BF,79,C3,37,BF,F1,C3,B 

A,BE,7,F,A,9,7,5,D,8,C, 6,4, 2,B, 3,1,8,8, 

8,0,0 



20 ' PR06RAHA TESTE 

30 ' 

48 C0L0R1,15,15:SCREEN 2 

58 X=2B:y=18 

6B F0RC=1T015 

78 L1NE(X,Y)-(X+36,Y+24),C,B:PAINT(X+1B 

,YH0),C 

88 X=X+8B:IFX>18BTHENY=y+32:X=2B 

90 NEXT C 

100 BLOAD-DUNP.EXE'.R 




THUNDEBSOFT 

THE NAME OF MSX 



PEQA O NOSSO SUPER 
CATALOGO GRATIS! 
TEMOS APPLE * TAMBEM! 



JOQOS_ 1,00 
APUCATIVOS_ 3,00 
C0P1 ADOBES _ j go 
CP/M_ 2000 
PRECO DO WSCO _ 5,00 
PRECO DA PITA 2 20 
CORREIO_ 2,80 
ENTREGA EM 24 HORAS • 
CORREIO go 




PACOTE N 9 1 



10 jogos — apenas 11 ,00 
(disco incluido) 



PACOTE N 9 2 



1 logos — apenas 11,50 
(fita mcluida) 



PACOTE N 9 3 



MSX TOOLS I ell 5 00 
sucesso de vendas 



SUPER PACOTES 



PACOTE N 9 4 



1 disco cheio — 11,00 

2 disco cheios -gQ 00 



PACOTE N 9 5 



Apllcalivo + coplador - 
6 00 (disco incluido) 



PACOTE N 9 6 



10 Aplicativos + disco • 
apenas 28,00 



LANCAUENTOS DO m£s 

MSX BOOK II - EDTRONIC - SCED 
SUPER ASM ( CART C./LED E'RESET ) 



A cada 5 programas escolha 1 gratis 

Para oulros eslados, os pedidos deverao ser leitos alraves de cheque 
nominal e ccuzado a MARCO ANTONIO TROVAO VAZ. Rua CarvaTho 
Alvim 278/501 , Rio de Janeiro, RJ, CEP 20510. Tel: (021) 268-6360 
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REDEFININDO O 
MSXWORD 3.0 



GUSTAVO F. BAYER 



Uma das grandcs vanlagcns dos cditores de texlo bascados 
noclassicoTASWORD ingles c a possibilidadedc total rcdcfinicao 
dos caracteres imprcssos na tela, assim como dos respectivos 
c6digos gravados e rcmctidos a impressora. Sua mais rcccntc versSo 
comcrcializada no Brasil, o MSXWORD 3.0, aprcscnla rotinas que 
facilitam a redefini^ao dos codigos emitidos por cada caracter, mas 
a alteracao dos caracteres na tela continua sendo pouco aproveitada 
pelos usudrios, j3 que o accsso a sua tabela binaria 6 trabalhoso. 

O programa aqui apresentado busca facilitar o manuseio 
conjunto de todas as tabelas rcfcrcntcs a cada caracter. Ele e 
compatfvel apenas com o MSXWORD 3.0, ja que essa vers3o, para 
facilitar a carga do progTama, alterou os enderecos de suas rotinas 
em assembler. 

Inicialmente, o programa pede que scja informado o caracter 
ou o codigo ASCII a ser pesquisado. A scguir, ele apresenta, de cima 
para baixo, os 8 bytes que definem o caracter na tela de 64 colunas, 
os 8 bytes que definem o caracter na janela de 32 colunas, e, ao final, 
os c6digos gravados e emitidos a impressora. Nessa tela de 
pesquisa, os bytes s3o apresentados de forma simplificada, elimi- 
nando-se os"zeros", para facilitar o reconhccimcnto do desenho do 
caracter. Os codigos para gravacSo e imprcssao s3o apresentados 
em sua notacao decimal. 

A pesquisa pode continuar atraves das teclas de direcao: a 
tecla para cima avanca ao topo da tabela (rctornando em um 
caracter por toque); a tecla para baixo desce na tabela (avancando 
um caracter por toque); e as teclas csquerda ou direila solicitam a 
informacao de outro caracter ou codigo ASCII a ser pesquisado. Os 
caracteres ASCII 208 a 223 n3o s3o apresentados por n3o estarem 
disponfveis para redefinif ocs. 

Ao pressionar-se a tecla INS, surge a tela dc trabalho, onde 
os bytes que definem o caracter na tela s3o apresentados em sua 
notacao binaria completa, onde os algarismos "1" representam os 
pontos que serao impressos na tela. Basta, entao, acrcscentar 
ou retirar tais algarismos para modificar-se o caracter no 
MSX WORD 3.0. 

Alguns cuidados, entretanto, devem ser tornados. Os ca- 
racteres da tela de 64 colunas ocupam apenas as quatro colunas 3 
direita dos seus bytes. Para manter uma separacao entre os 
caracteres, apenas as tr& ultimas 3 direita devem ser utilizadas. 
Na tela de 32 colunas, os caracteres ocupam todo o byte, mas apenas 
os seis 3 esquerda devem ser utilizados para manter-se o afas- 
tamento.Cuidadocomo caracter ASCII 197, que define o cursor da 
janela de 32 colunas. 

Os c6digos para gravacao e impress3o s3o allerados com a 
simples troca do respectivo numcro em noia?ao decimal. E impor- 
tante observar aqui que cada caracter normal (sem o GRAPH 
acionado) emitc uma sequencia de tres c6digos. Essa quanlidade de 
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codigos e suficientc para acionar-se a maior parte dos comandos de 
uma impressora. 

Isso pcrmitc utilizar caracteres praucamente nunca usados 
em textos, espccialmente os do teclado CODE (Hotbit) ou shift/ 
RGRA (Expert), reservando-sc os caracteres obtidos no 
MSXWORD 3.0 com GRAPH acionado, e que emitcm quatro 
eddigos, para os comandos mais extensos. 

Apenas uma observac3o: devc-se procurer incluir na 
sequencia dos eddigos dc controle da impressora o codigo 32 
(espaco). Isso permilira incluir o respectivo caracter em qualqucr 
espaco da linha, sem perder o alinhamenio a direita na impress3o 
(principalmcnte quando se trabalha com todas as 64 colunas de 
tcxto). 

Combinando-sc esses recursos de redefinicao, torna-sc 
possivel criar caracteres de controle simbolizando na tela sua 
func3o, facilitando assim o controle visual do texto na tela. 

Uma vcz cfctuadas as modi ficacOes desejadas, basta colocar 
o cursor na ultima linha alterada da tela de trabalho e acionar repc- 
tidamente a tecla de func3o F2 ate aparccer a mensagem dc erro. 
Com isso, as alteracOes estar3o registradas na memdria. Para retor- 
nar ao programa, aciona-se a tecla dc func3o Fl, pedindo, entao, a 
pesquisa de um novo caracter ou codigo ASCII ou simplesmcntc 
acionando-se <RETURN>. Para voltar ao MSXWORD 3.0 basta 
acionar ESC na tela de pesquisa. O ultimo passo scria fazer uma 
c6pia das alteracoes, atravds da op?3o "C" 'do menu principal do 
MSXWORD 3.0, sem esquccer-se de ter feito antes uma cdpia de 
seguranca do MSXWORD 3.0 original. 



DICAS PARA A MTA 


32,27,65,0 


Sequencia de c6digos que Simula o BS. 
Funcionamento: anula o avanco do papel no 
salto dc linha; com isso, a linha seguinte sera 
impressa sobre a anterior, permitindo a supcr- 
posicao de caracteres (p.ex./c = para formar $), 
sublinhamento e duplo (triplo ...) toque. 


32,27,65,12 


Restaura o avanco normal do papel no salto de 

linha. 


32,27,65,18/24 


Avanco 1,5 ou duplo do papel no saltode linha. 


32,27,65,8 


Avanco do papel em 2/3 no saltode linha, simu- 
lando sobrcscrito para anotacao dc referencias, 
notas, potencias, etc. 


32,27,65,4 


Avanco do papel em 1/3 no salto de linha, para 
imprimira linha normal abaixodosobrescrito. 
(Para imprimir subscrito, as duas ultimas 
sequencias de codigos devem ser usadas na or- 
dem inversa). 



Especialmcntc inlcrcssanle e a simulacao do negrito. 

Para tanto necessitamos inicialmcnte asimulacao do BS na 
linha principal. No infcio da linha seguintc, prccisamos da 
sequencia: 

27,75,1,0, 
que prepara a imprcssora para a impressao de uma unica coluna dc 
pontos no modo grafico. 

A seguir, prccisamos da sequencia: 
0, 32, 32 
que provoca o avanco de uma unica coluna de ponlos scm nada im- 
primir, saltando a seguir dois espacos. Com isso, basta rcpetir a 



palavra a ser impressa em negrito exalamente abaixo de sua 
ocorrencia na linha anterior. 

Para imprimir negrito no inicio da linha, a sequencia: 
0, 32, 32 
deve ser substitufda por urn caracler nulo, que emile apenas o 
codigo 0. 

Finalmentc, n3o podc faltar o codigo 12, que provoca o 
avanco dc pagina, pcrmitindo assim a paginacao da impressao na 
tela, antes da impressao (principalmente se for usada a simulacao 
do BS). 



ie mmtmmmmttttmm 

20 'I Redef inidor de caracteres t 

30 't e cfcdigoE de mpressao t 

40 I para d NSXNORD 3.0 t 

50 "I da Cibertron I 

60 immmtmmmmmm 

70 HIDTH40:KEYl,CHR$(30)+CHR«(21)+ , run7 

0"*CHR$(13):KEY2,CHR«(13)+"poke"+CHR«(3 

0)<-CHR*(30)*CHR«(30):KEy3, , 00':KEY4,"00 

, :KEY5,"0000":KEYOFF 

80 K*=* "-.LINEINPUT-QUAL CARACTER 0U U 

DISO? ";L$ 

90 IFLEH(L$)=1THENC=ASC(L$)ELSEC=VAL(L« 

) 

100 IFC<32THENC=32 

110 IFC=>288ANDC<=223THENIFASC((C»)=38TH 

ENO207ELSEC=224 

120 IFC=>255THEN0255 

130 CC=C:L*=CHR*(C) 

140 CLSiPRINT" CHR* *;L«;SPC{7) ; '765432 



10 , ;SPC(4);"ASC ";C:B=44800 l +8tC:A=B:FO 
RR=BTOB«7:GQSUB290:NEHR 
150 B=42752'+8«C:A=8:F0RR=BT0B+7:60SUB2 
9B:NEXTR 

160 IFC<=191THENC=lrH9BBF+3*(C-32)ELSEIF 
O>208THENC=*H9D9F+3«(C-224)ELSEC=iHA4C 
9+(C-64)»4 

170 PRINT'POKE'jC; " 5 " ;PEEK(C) 
180 PRINT'POKE" ;C+1 ;" , " ;PEEK(C+i ) 
190 PRINT , P0KE';C+2; , ,";PEE«:(C+2) 
200 1FC=)-22839ANDC<=-22778THENPRINT"P0 
KE"jC+3j" t "jPEE*(C'»-3J 
210 IFASC(K$)=18THENPRINT"0k. Feitas as 
•odificacoes, registre-as usando (F 
2) a partir da liltua linha":PRINT" a 
lterada. <F1> reinicia o progra§a.';CH 
Rt(30);CHRt(30);CHR$(30);:END 
220 PRINT"CURSOR p/pesquisar INS p 

/■odifkarVPRINT" ESC retorna a 

o HSUHORD" 



230 K*=INKEY$:IFK»=* , THEN230 
240 IFASC( K* ) =31THEMC=CC+1 :CLSiG0T018B 
250 IFASC(K«)=30THENC=CC-1:CLS:6OTO100 
260 I FASC ( K* ) = 18THENC=CC : LOCATEB, 1 :60T0 

140 

270 IFASC(K»)=27THENKEY1,CHR»(*HD8):KEY 

2,CHR»(JrHDA):kEY3,CHR$(12):L0AD"HSXWRD 

3.8\R 

280 PRINTCHR$(30):GOTO80 

290 A«=B1N*(PEEK(A)) 

380 IFLEN(A»)<8THENF0RF*1T0(8-LEN(A*M: 

A$="B"+fli:NEXTF 

310 F0RF=8T01STEP-l:Bt(F)=MD*<A«,F,l): 

1FB*(F)="B'THENB*«F)=" " 

320 NEXTF 

330 C$="":F0RF=8T01STEP-1:C*=B»(F)+C*:M 

EXTF 

340 PRINT , P0KE";A;*,tb , ;:IFASC(K«)=18TH 

ENPRINTA$ELSEPRINTC« 

358 A=A*1:RETURN 
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PACOTE GRAFICO 
PARA PASCAL 



PAULO MARQUES FIGUEIRA 



Apresentamos urn pcqucno pacotc dc procedures para o 
TURBO PASCAL com o qual os usuarios desla linguagem poderao 
usar certos comandos que s6 encontramos no Basic do MSX. Sao 
comandos para a producao de sons (Play e Sound) e para recursos 
graTicos (Line, Circle, etc.). que, normalmente, n3o estao 
disponiveis em linguagens compiladas vindas de sisiemas como o 
CP/M. 

O recurso mais usado do Pascal foi o INLINE, que nos 
permite colocar rolinas em linguagem de maquina deniro dos 
procedures e, assim, usar muitas retinas da prdpria ROM do MSX. 

E importante ressaltar que os comandos graficos criados 
utilizam o interpretador Basic da mdquina. Logo, o complemento 
dos comandos e a velocidade de processamento 6 igual a do Basic. 
Cuidadoparanaocometererros nos comandos, poiso interpretador 
apresentara a mensagem de erro e o controle do micro passa para o 
Basic. Portanto, sempre salve os programas antes de roda-los, pela 
opc3o R do menu principal do Pascal. 

No processo usado e" criado uma falsa linha dc programa 
Basic e mandamos que o interpretador a cumpra. Dcvido a isto, esta 
falsa linha tern que ficar em uma area da memdria acima da ROM, 
que tamb6m devera estar totalmente ativada. Assim, foi definido 
uma vartevel para o complemento dos comandos, alocada no 
endereco $A000 e uma rotina em linguagem de maquina no 
endereco $C000, que fez a mudanca dos slots, ativando as paginas 
da ROM. 



Em oulros comandos, como os de mudanca dc screen, s3o 
simplcsmcntcchamadas as rotinas do BIOS. Note que os programas 
compilados em Pascal ficam no endereco $100 e, portanto, estao 
com as paginas de ROM desligadas. Mesmo assim, dispomos dc 
rotinas, como a doendcrcco $30, que faz chamadas entre slots. Desta 
forma, o RST $30 foi muito ulilizado. 

Na lislagem 1 temos as procedures criadas e, nas demais 
lislagens, temos exemplos de uso. Observe que a direliva dc 
compilacao (*$I*), que faz a inclusao de fontes no programa, 
incluira todos os procedures no seu programa, quer elas scjam 
usadas ou n3o. Assim, se preferir, grave as procedures no seu disco 
separadamente e so inclua as que for usar no seu programa. 

No caso do comando LINE, a unica diferenca 6 que o traco 
que liga as coordenadas dos vertices deve ser o token do sinal dc 
menos. Observe os programas exemplos. 

Espero que, com isso, os usuarios no MSX possam urar 
melhor proveito desta linguagem, "envenenando" seus programas 
com os recursos do MSX. 

At6 a proximal 



Paulo Marques Figueira programa em Basic, Cobol, Pascal, 
dBase e Assembly, em micros da linha MSX. K o autor do 
programa Edtronic, comerciali/.ado pela Paulisoft, 
Softhouse para a qual desenvolve varios projetos. 



VAR SLOT: STRING[19) ABSOLUTE $BFFF; 


$E5/$73/$CD/$00/$O0) ; 




CCMP: STRING[250] ABSOLUTE $9FFF; 


END; 




PROCEDDRE SCREENO; 






BEGIN 


PROCEDDRE CIRCLE; 




INLINE ($F7/$00/$6C/$00) ; 


BEGIN 




END; 


CCMP:=COMP+CHR(0) ; 

INLINE ($21/$00/$A0/$DEf/$21/ 




PROCEDURE 9CREEN1 ; 


$ll/$5B/$CD/$00/$C0) ; 




BEGIN 


END; 




INLINE ($F7/$00/$6F/$00) ; 






END; 


PROCEDDRE LINE; 
BEGIN 




PROCEDDRE SCREEN2; 


CCMP : =COMP+CHR (0) ; 




BEGIN 


INLINE ($21/$00/$A0/$DD/$21/ 




INLINE ( $F7/$00/$72/$00) ; 


$0E/$4B/$CD/$00/$C0) ; 




END; 


END; 




PROCEDDRE SCREEN3; 


PROCEDDRE DRAW: 




BEGIN 


BEGIN 




INLINE ($F7/$00/$75/$00) ; 


CCMP : =CCMP+CHR (0) ; 




END; 


INLINE <$21/$00/$A0/$DD/$21/ 
$6E/$5D/$CD/$00/$C0) ; 




PROCEDDRE PLAY; 


END; 




BEGIN 






COMP:=CCMP4CHR(0) ; 


PROCEDDRE PAINT; 




INLINE ($21/$00/$A0/$DD/S21/ 


BEGIN 





COMP : =COMP+CHR (0) ; 
INLINE ($21/$00/SA0/SDD/$21/ 
$C5/$59/$CI)/$00/$C0) ; 
END; 

PROCEDURE PSET; 
BEGIN 

COMP : =COMP+CHR (0) ; 

INLINE ($21/$00/$A0/$DD/$21/ 
$EA/$57/$CD/$00/$C0) ; 
END; 

PROCEDORE VDPON; 
BEGIN 

INLINE ($F7/$00/$44/$00) ; 
END; 

PROCEDORE VDPOFF ; 
BEGIN 

INLINE ($F7/$00/$41/$00) ; 
END; 

PROCEDORE PRINTGRP ; 
BEGIN 

COMP : =COMP+CHR ( ) ; 
INLINE ($21/$00/$A0/$7E/$FE/ 
$00/$CB/$F7/$00/$8D/ 
$00/$23/$18/$F5) ; 
END; 

PROCEDORE COLOR (CORI , CORF, CORB : BYTE) ; 

BEGIN 



MEM[$F3E9] 
MEM[$F3EA) 
MEM[$F3EB] 



=CORI; 
=CORF; 
=CORB; 



INLINE ($F7/$00/$62/$00) ; 



END; 



PROCEDORE VPOKE (ENDE : INTEGER; DADO : BYTE) ; 
VARENDE1: INTEGER ABSOLOTE $AO0O; 

DADOl: BYTE ABSOLOTE $B002; 
BEGIN 

ENDE1 :=ENDE; DADOl : =DADO; 

INLINE ($3A/$02/$B0/$2A/$00/ 

$A0/$F7/$00/$4D/$00) ; 
END; 

FONCTION VPEEK (ENDE: INTEGER) : INTEGER; 
VAR ENDE1 : INTEGER ABSOLOTE $A000; 

X: BYTE ABSOLOTE $A002; 
BEGIN 

ENDE1:=ENDE; 
INLINE ($2A/$00/$A0/ 

$F7/$00/$4A/$00/ 
$32/$02/$A0) ; 
VPEEK :=X; 
END; 

PROCEDORE SOOND (REGISTRO, DADO: BYTE) ; 
BEGIN 

PORT [160] :=REGISTRO; 

PORT [161] :=DADO; 
END; 

PROCEDORE WIDTH (X: BYTE) ; 
BEGIN 

MEM[$F3B0) :=0C; 
END; 

PROCEDORE CORSOR (X : BYTE) ; 
BEGIN 

MEM[$FCA9] :=*; 

END; 



PROCEDORE FILES; 
(*COMP :='"*.*" '/FILES; *) 
BEGIN 

COMP : =COMP+CHR(0) ; 
INLINE ($21/$00/$A0/$DD/$21/ 
$2F/$6C/$CD/$00/$C0) ; 
END; 

(*INICIO DO PROGRAMA* ) 
BEGIN 

SLOT : =CHR ($DB) +CHR ($A8) +CHR ($F5) +CHR ($E6) 
+CHR($F0) +CHR($D3) +CHR($A8) +CHR($FD) 
+CHR ($21) +CHR ($00) +CHR ($00) +CHR ($CD) 
+CHR ($1C) +CHR ($00) +CHR ($F1) +CHR ($D3) 
-KHR($A8)4CHR($C9) ; 
END; 



EXEMPLOl 
PROGRAMA LINHA; 
VARA: INTEGER; 

B: STRING [3] ; 

($1 MSXPACOT.PAG) 

COLOR(15,l,l); 

SCREEN2; 

COMP:=' (10,10) '+CHR($F2)+' (250, 180) ,7, B' ; LINE; 

A:=5; 

REPEAT 

STR(A,B); COMP:=' (128, 80) , '+B+' ,10' ; CIRCLE; 

A:=A+5; 

ONTILA>60; 



COMP 
COMP 
COMP 
COMP 
COMP 
READ (A) ; 
SCREEN0; 
END. 



=' (85, 77)'; PSET; 
='REVISTACPO' ; PRINTGRP; 
=' (86, 77)', -PSET; 
='REVISTACPO' ; PRINTGRP; 
=' "V15T255L3207CDCD'" ; PLAY; 



EXEMPL0 2 
VARA: BYTE; 

(*$I MSXPACOT.PAS *) 

COMP : =' "* . *"' ; FILES; 
FOR A: =1 TO 40 DO BEGIN 

WIDTH (A) ; 

GOTOXY(l,l); DELLINE; 
END; 
FOR A: =1 TO 24 DO BEGIN 

GOTOXY(l,l); INSUNE; 
END; 
END. 



EXEMPL0 3 

VARW: BYTE; 

I : INTEGER; 

(*$I MSXPACOT.PAS*) 

SCREEN1; 

WRITELNCESTOOFAZENDO. . . ESPERE. . . ' ) ; 

FOR I: =2 64 TO 976 DO BEGIN 

W:=VPEEK(I); 

VPOKE(I,WOR (TRONC(W/2)+TRONC(W/4))); 

END; 

CCMP . =- "* . *»' ; FILES; 

READ(W); 
SCREEN0; 
END. 
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/?A£Z. Z PARIS' DAKAR 



Para voce que josta d e for 
tes e m o c o e s ,, um jogo que c e r - 
t a m e n t e vai tira-lo do urio! 

PARIS -DAKAR e" um jOftO d e 

simulacao automobiliJtica ©ri- 
de sera - ' necessario que o pi- 
t o t o demons tre tuda a sua p e — 
ricia em "cross e endu r o " . 
Em f i U OU diSCO - NC Z * 7,00! 



REDATOR ELETRONICO PARA it-SX 



O melhor PROCESSADOR DE 

TEXT OS ja' criado para o MSX! 
Em CARTUCHO original da QRADI 
ENTE por aperias MCz9 18,00 ! ! 




it S X O N A R 



O melhor p a c o t e d e edicad 
de GRAFT COS COMEBCIAI5 e ESTA 
T T ST I COS disponivel ate'entao 
para a I in ha MSX ! M o nta. graf i 
COS SETORIAIS, de AREA, LINEA 
RES e de BASRA; ou ainda MIX- 
TOS. IMPRIME o resuttado ein 

q u a \ q u e r i mp r e s s o r a g T9.fi.CB. e 
pode enviar telas para o MSX 
PAGE MAKER 1.3, ou edi tores 

graf icos c o m o o yamaha art i st 

OU NEMESIS GRAE -MASTER, SONY 
GRAPHIC MASTER OU CARTOON! 

Um p r o g r a ma i nd i s p e n s a v e I 

para a q u e C e s que utilizam o 
s e u m i c r o c o mp u tador em a t i v i - 
d a d e s ma is prof issi o na i s . 
Aperias em disco - NCz* a.4-,00! 



it >S X PORTFOLIO 



TJm pro|ra ma que re u n e riu m 

m e s m o disco u ma AGENDA EL ET RO 
NICA, Una LI ST A TELEFONICA, 

o perpettjo e uma 
ELETRONICA; f or man 

si sterna de "DESK- 

n i c o para faciU- 

a — a — d i a ! 

o program* o ano 
s e u s f e r i a d o s e 

rativas; pre-pro- 
disquete adicio- 

! Ap r ov e i t e ! 

sco - NCz* 14-, DO! 



um CALENDARI 

CALCULADORA 

do a s s i m u m 
— TO P " e L e t r o 
tar o s e u d i 
Ac ompanKa 
de 1939 com 
d a t a s c o m e m o 
gra ma d o s nu m 
rta t gratuito 
Aperias em di 



1IOVQ CATALOGO NEMESIS 



EEMETEMOS PARA TO DO O BRAS XL. I 



it S X HARD C O P Y 



Um pro grama 
para quern possui 
ra e quer tirar 
vei to da mesma 
tipos e ta ma nhos 



Imp rime ainda 
em sentidos e 
f e r en tes! 
Em f i ta ou di 



i nd i s p e n s a V e 

u ma i mp r e s s 

o ma x i m o p r o 

com diverse 

d e graf icos 



em cor 

tabulae 



i nv e r sa 

o e s d i 



s c o 



- NC z * 



it -S X - & A it 



o program* que fas o 
msx falar! uma criacao da 
ME SIS INFORMATICA! 
Em f i ta ou disco - NCz* 9 



SO ! 



NE- 
SO ! 




II II II II 



OS BEST -'SELLER'S BE 1333 



fSBK VBSXJM 1 . C) 

O Super Siste ma Op e r a - 
c i O ria i. c o m d i V ersot recur 
S OS e i mp i. e m entacoes ! 
E m, disc o p O r MC E $ 18., 60 

HSK I-'AtSE RAKEK 1 . 3 

o pro<ra ma q. u e use. m o s 
para c o up o r e s t a p a sj. i na ! 
Um a r e v DlUC a o para o MSX I 
E m dliSCO p o r MC s $ 18, 60 

bssx i :, Ai:n-: mmkhsr kit 



3 Discos c om 

T RA S V A R I A D A ! 



JVF-J7J?Sr,<£ ,<ZPE(JWAT. niSK PACK 



A NEMESI5 reuniu num disc o 
d O i S j O A O ft d e p e £ O : THE FINAL 
COUNTDOWN e PLAY HOUSE STRIP 
POKED em VERSOE5 ORIGINAIS. 

C O m a q. u a t i d a d e e excl u ft i — 
v i d. a d e d e c o s t u m e da NEMESI S ! 
E m disco p o r a p e ma ft MC s * 8,00 



NEXESIS SPECZAL GAilE PACK S 



U in pacott especial, r e u n i n - 

d o o s s ansae i ona i s .j o & o s : 

TAWARA , SNAKE IT , THE POWER OF 
DARKNESS e BOARDY GAMES II . 
Ma o p e r c a csles i. a m c a m e m t o ft ! 

Em f i ta on. d i s c o - NCz$ 6,00 





NOVIDADES PARA O SEU ilSXZ 



C om a me sma. t r ad i c a o em no 
v i d a d e s e qutlidadt j * * conhe 
c i d a s p e i. o s USUariOl d e MSX 1 , 
a NEMESI S a p r e s e n t a t a mb em as 
ulti ma s s e n s a c o e s do m o merit o 
P a r a o s e u MSX d e 2 a jeracaol 
P e c a o n o s s o catalo$o gratis! 



OPERATION WOLF Eil DISCO 



Um d o s ma is i a n t a s t i c o s j O 
$ o s j a •' c r i a d O ft para a t m ha 
MSX . S u a m i s s a o e ' r e s ga tar o ft 
P r i s i o ri e i r o s d e u m camp o d e 

d e concentrac a o ma z i s t a . 

Agora em disco por HCi* 7,00! 



RESASn A INTERFACE COUPLET A 



Um cartucho com "BOTAO de 
RESET EI SI CO" .. desarmarido to- 
d o s o s progr a ma s .; ASSEMBLER E 

DISASSEMBLER; RECUPERADOR DE 
PROGRAMAS PERDIDOS, DE DISCOS 
AVARIADOSi ZAPPED; HARD -COPY 
DE TELAS GRAFICAS; ETC. . . 
Em cartucho p-or MC s * 3 8,00! 



NEHESIS INFORilATICA LTDA 



Envie VALE POSTAL OXL CHEQUE 
NOMINAL a. NEMESIS INFORMATICA 

CAIXA POSTAL 4.583 CEP ZO.OOl 
RIO DE JANEIRO - R -J . 




ALFABETOS DO GRAPHOS III: 
APLICAgOES PRATICAS 



GUILHERMEA. L. STIJ.K 



O programa editor grafico Graphos III, versOes 1.1 e 1.2, 6 um 
dos mais faceis de se ulilizar e um dos mais complctos para a linha 
MSX. 

Um dos scus grandes recursos 6 o de poder edilar alfabetos com 
uma simplicidade incrivel. Quern tern, sabe. 

A edicao de alfabetos permite que o seu uso nao sc rcstrinja so 
ao programa fonte (no uso de edic2o de telas), mas tambem permite 
sua utilizacao no BASIC e Assembly Z80 com diversas aplicacocs, 
por exemplo: redefinicao do alfabeto do MSX, imprcssao, 
utilizacao em outros programas e mil coisas que sua fdrtil 
imaginacao mandar. 

ORGANIZACAO 

Quando o Graphos III edita alfabetos, ele grava os bytes dos 
caracteres na mem6ria a partir dos endcrccos 9000H (versao 1 . 1 ) e 
9200H (versao 1.2). Os bytes s3o gravados assim: cada 8 bytes um 
caracter, cada byte corresponde a uma linha grafica deste (s3o 8 
linhas), que, por sua vez, e" formada de 8 bits e cada bit corresponde 
a um ponto que pode estar aceso (1) ou apagado (0). Veja figural. 
OBS: O sistema hexadecimal 6 representado por um numero 
seguido de H, por exemplo, 9000H. 

Um arquivo de alfabeto tern aproximadamente 200H de 
extens2o e pode ser deslocado por um comando BLOAD"xxxx", 
deslocamento. O MSX faz esta operacao adicionando ao endercco 
inicial o numero ap6s o BLOAD. 
Figura 1 




[ 



0011110 0. 

01000010 

1010010 1. 

10000001 

10100101 

10011001 

01000010 

00111100 



1 BIT APAGADO 
1 BIT ACESO 



1 BYTE 

(8 BITS) 



1 BYTE 

(8 BITS) 



APLICACOES 
1. Redefinicao 

A redefinicao do set de caracteres do MSX necessita de uma 
pequena rotina no B AS IC, pois a redefinicao nao c fcita por BLOAD 
"xxxx", R, como muitos pensam. 

O programa uliliza a SCREEN 1 portcrumpadraode8x8pontos 
e da VPOKEs na tabela de caracteres com os bytes do alfabeto. 

Quern liver a versao 1.1 do Graphos, tern que mudar a linha 150 
de 9200H para 9000H. 
Figura 2 



10 REN REDEFINIDOR 
28 REM 

38 REN PARA A LINHA NSX 
48 REN 

58 REN BUILHERHE A.L. DA SUVA 
68 REN GUARARAPES - SP 13/9/88 
78 REN 

88 KEY l,*SCREENrtCHR$(13) 
98 SCREEN1 

188 PRINT:PRINT:PRINT:F0RI=1T031:PRINTC 
HR«(l);CHR$(65+V!;:v=V+l:NEXTI 
118 FOR 1=32 TO 255:PRINT CHR*( J);:NEXT 
I 

128 DEF FN A(X)=ASC(CHR*(X) )I8 
138 X=1:F0R J=l TO 255 
140 FOR 1=8 TO 7 

158 VPOKE FNA(X)H,PEEK(4H928B+I+JI8) 
168 NEXT I:X=X+1 
178 NEXT J 

188 FOR 1=32 TO 255:PRINT CHR$(I);:NEXT 
I 



Como o Basic 6 muilo lento, isso pode ser feito cm LM Z80. 
programa da figura 2.1 faz isso e, para roda-lo, de RUN e carregue 
um alfabeto. Para quern possui o Graphos 1.1, comande POKE 
&hE020,&h90. Aperte ESC para redefinir. 
Figura 2.1 



18 REM REDEFINIDOR LH V 1.2 

28 REN GUILHERHE A.L. DA SILVA 

38 REN PARA NSX 

48 REH 

50 FOR MHE008 TO tHE848:READ AS:P0KE 

I,VALC&H*+A*):NEXT:DEFUSR=JiHE0BB:A=USR 

(0) 

68 REN 

78 REH DADOS 

188 DATA 21,BC,EB,22,CD,FD,3E,CD,32,CC, 

FD,C9,FE,3A,CB,CD,6F,8B,CD,7B,BB,CD,53, 

88,81 

110 DATA BB, B8, 11, 88,88,21, 88, 92, CD, 5C, 

B8,B6,BF,21,31,EB,7E,CD,A2,BB,2i,18,F9, 

C9,52,45,44,45,46,49,4E,49,44,4F,eA,BD, 

4F,6B,8A,B0 



28 CPU 



2. Impressao 

A impressao de caractcrcs cspeciais ou redefinidos so podc scr 
feila no modo grafico de sua impressora (vcr artigo sobre impressao 
em modo grafico cm CPU n° 1 ). O uso dele nao 6 muito facil porquc 
a impressora trabalha com os bytes na vertical, devido as agulhas da 
cabcca de impressao e o video do MSX na horizontal. Para corrigir 
isso, uma rotina tern que "lombar" o padrao dc bits dos caracteres 
(figuras 3 c 4). 

Na rotina da figura 5 6 fcito exatamente isso, com o auxflio dc 
uma pequena rotina em linguagem de maquina (figura 6) para 
agilizar o proccsso. 

Uma 2* rotina e utilizada para a impressao, que e composta por 
uma cm Basic (figura 7) c uma outra em Linguagem de Maquina 
(figura 8). 
Figura 3 BYTES NA PRINTER 



Figura 5 




AGULHAS DA 
CABECA 




Figura 4 



NAO E UTILIZADA 



BYTES "TOMBADOS" 



Figura 6 




10 INVERSOR DE ALFABETOS 

28 REN PARA 6RAPH0S III V 1.2 

38 REH 

48 REN PARA A LINHA HSX 

58 REN 

68 REH 6UILHERHE A. L. DA SUVA 

78 REN GUARARAPES - 88/89/88 

88 REH 

81 DATA 11,F8,97,B6,B8,C5,21,F8,C9,B6,B 
8,1A,17,CB,16,23,18,FA,C1,13,18,EF,C9 

82 FOR 1=MCB88 TO &HC888+22:READ It : 
POKE I,VAL (■«■*») : NEXT 

98 CLS 

95 REH - INVERTE 
188 FOR 1=8 TO 2847 STEP 8 
118 DEFUSR=&HCBBB 
128 A=uSR(B) 

138 H=tH92BB+I:H«=HEX$(H):L0CATE 18,18: 
PRINT"ENDERE?0 FONTE :";H$ 
148 POKE *HCB81,VALf*H*+RIGHT«(H»,2)) 
158 POKE *HCB82,VAL f*H"+L£FT»(H«,2)) 
168 S=«fHCBBB+ 1 : 6S=HEX$ ( 6 ) : LOCATE 18,12: 
PRINT'ENDERECO DESTINO: ";G* 
178 POKE &HCBB7,VAL ( "&H'+RIBHT$(B«,2) ) 
188 POKE iHCB88,VAL("4HVLEFT$(G«,2)) 
19B NEXT 

191 LOCATE B,21:PRINrPRESSI0NE OUALQUE 
R TECLA PARA C0NT1NUAR';:C»=INPUT$(1) 
195 REH REDEFINE 
288 KEY l,"SCREENr+CHR$(13) 
21B SCREEN 1 

228 CLSilOCATElB.BiPRirfTESTE" :PRINT:P 
RINT:PRINT:F0R 1=1 TO 31:PRINT CHR*(1); 
CHR*(65+V);:V=Vtl:NEXTl 
238 FOR 1=32 TO 255:PR1NTCHR$(I);:NEXTI 
248 DEF FN A(X)=ASC(CHft*(X))*8 
258 X=1:F0R J=l TO 255 
268 FOR 1=8 TO 7 

278 VPOKE FNA(X)H,PEEK(4HC888+H-JI8) 
288 NEXT I : X=X+1 
298 NEXT J 

388 FOR 1=32 TO 255:PRINT CHR*(1);:NEXT 
I 



C8B8 


11F897 


LD DE.97F8 


C883 


8688 


LD 8,88 


C885 


C5 


PUSH BC 


C886 


21F8C9 


LD HL,C9F8 


C8B9 


86B8 


LD B,BB 


CB8B 


1A 


LD A.(OE) 


C88C 


17 


RLA 


C88D 


CB16 


RL (HL) 


C8BF 


23 


INC HL 


C81B 


18FA 


DJN2 C88C 


CB12 


CI 


POP BC 


C813 


13 


INC DE 


CB14 


1BEF 


DJN2 C885 


CB16 


C9 


RET 



CPU 29 



Figura 7 



18 REH IHPRESSOR DE 


228 DATA C1,CD,A5,B8,D8,23,1B,F5 


(C$ , I , 1 ) )-64 :POKEtHCBBl , H:GOTO 400 


20 REM ALFABETQS 


238 DATA 21,B8,C8,C9 


398 POKE &HC081,ASC(A$) 


38 REH 


248 FOR I=&HCB8B TO &HCB6B:READ V*:POKE 


488 A=USR(0):V=PEEK(4HC4FB):V2=PEEK(*HC 


40 REH PARA HS1 


I,vAL("&H"n , «):NE)(T:POKE iHEBBB.l 


4FF) 


50 REH 


258 REH DEFINE PARAHETROS 


41B IF INKEY$=CHR$(27) THEN ES=ES+1 


60 REH 6UILHERHE A.L. DA SUVA 


268 POKE tHC4FF 5 8:'DESLIGA GRAFICO 


428 IF ES/2<> INT(ES/2) THEN 580 


78 REH GUAftARAPES-SP 89/89/88 


278 ES=1: ESC 


430 REH REGISTRADORES 


88 REH 


288 DEFUSR=*HC8BB: 'DEFINE ilSR 


448 PRINT TAB ( 1 "CARACTERE : * ; CHR* ( V ) ; " 


98 IF PEEK (trHEBBB)=l THEN RESTORE 518: 


298 POKE &HFBB0 , 255 : ' I NTERRUPCAO 


_N9";V 


GOTO 258 


3BB POKE &HF417,l:'PADRAO ABNT 


450 PRINT TAB(1B);STRIN6*(21,"-"):PRINT 


188 DATA 3E,BB,32,F8 ) C4,FE,13,C2 


31B POKE &HC4FB,B:'CARACTERE INPUT 


TAB(1B)"6RAFICU';:IF PEEK(4HC4FF)<>1 T 


118 DATA BD,C8,C3,22,CB,FE,1B,28 


328 VB=4HC851:P0KE VB,8:'PADRAO 


HEN PRINT" DESLIGAD0...";USING^";V2:EL 


128 DATA 86,3E,81,32,FF,C4,C9,3A 


338 VE=4HCB5C:POKE VE,8:'DE PONTOS 


S£ PRINT" LI6ADO "USIN6"ft";V2 


138 DATA FF,C4,FE,B1,CA,2B,CB,3A 


348 REH PROGRAHA 


468 Z*=HEX$(PEEK(4HC151 ) )+HEX*(PEEX(SHC 


148 DATA F8, C4, CD, A5,BB,3E, 88,32 


358 READ C«: FOR 1=1 TO LEN (Ct):A$=HID 


150)) 


158 DATA FF J C4,C9,CD,A8,8B,2B,FB 


*(C*,I,1):IF A»="t" THEN POKE JHCB81,2? 


47B PRINT TAB(18);"INIC HL ';Zt 


168 DATA CD,B7,BB,D8,21,BB,C8,3A 


:GOTO 4BB 


488 Z1*=HEX$(PEEK(&HCI53) )+HEX*(PEEK(4H 


178 DATA FB,C4,47,16,8B,1E,88,19 


368 IF At="+" THEN POKE 4HCBB1,19:60T0 


C152)) 


188 DATA 1B,FD,22,5B,C1,E5,3E,1B 


488 


498 PRINT TAB(1B);"INC HL ";Z1* 


198 DATA CD,A5,8B,3E,4B,CD,A5,BB 


378 IF At»T THEN LPRINT CHRJ(18):60TO 


580 NEHiLPRINT CHR*il8» 


288 DATA 3E,B8,CD,A5,BB,3E,B8,CD 


588 


518 DATA'IAGUIA JNPORHATICA+ A6UIA 


210 DATA A5,BB,E1,86,FF,7E,22,52 


388 IF A«=CHR$(1) THEN 1=1+1 :H=ASC(H1D$ 


INGORHATICP 
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C888 3E88 


LD 


A, 88 


CB1C 


CA2BCB 


JP Z,CI2B 


C83A 


47 


LD B,A 


C852 


CDA58B 


CALL B8A5 


CBB2 32FBC4 


LD 


(C4FB),A 


CB1F 


3AF0C4 


LD A,(C4F0) 


CB3B 


1688 


LD D,B8 


C055 


3E88 


LD A,BB 


C8B5 FE13 


CP 


13 


C022 


CDA508 


CALL BBA5 


C03D 


1EB8 


LD E,08 


C85A 


El 


POP HL 


CBB7 C2BDCB 


JP 


NZ,CBBD 


CB25 


3E88 


LD A, 00 


CB3F 


19 


ADD HL.DE 


CB5B 


86B8 


LD B.B8 


CB8A C322CB 


JP 


CB22 


C827 


32FFC4 


LD (C4FF),A 


CB4B 


1BFD 


DJNZ CB3F 


CB5D 


7E 


LD A,(HL) 


CBBD FE1B 


CP 


IB 


CB2A 


C9 


RET 


CB42 


225BC1 


LD (C15B),HL 


C85E 


2252C1 


LD (C152),H 


C88F 2886 


JR 


NZ.CB17 


CB2B 


CDA8B8 


CALL 80AB 


CB45 


E5 


PUSH HL 


CB61 


CDA5B8 


CALL BBA5 


C811 3E01 


LD 


A, 11 


C82E 


28FB 


JR Z.CB2B 


CB46 


3E1B 


LD A, IB 


CB64 


D8 


RET C 


CB13 32FFC4 


LD 


(C4FF),A 


C838 


CDB78B 


CALL B8B7 


CB48 


CDA58B 


CALL B8A5 


CB65 


23 


INC HL 


C816 C9 


RET 




CB33 


D8 


RET C 


CB4B 


3E4B 


LD A.4B 


C066 


1BF5 


DJNZ CB5D 


CB17 3AFFC4 


LD 


A,(C4FF) 


C834 


21B8C8 


LD HL,C8BB 


C84D 


CDA58B 


CALL B0A5 


C868 


21BBC8 


LD HL.C880 


C81A FEB1 


CP 


Bl 


CB37 


3AF8C4 


LD A,(C4FB) 


C050 


3EB8 


LD A, 88 


C86B 


C9 


RET 



2.1 UTILIZACAO 

2.1.1 Rotina I 

Para funcionar, 6 necessario que se carregue um alfabeto do 
Graphos III. Se sua versao 6 a 1.1, mude na linha 130 o valor da 
varidvel H de 9200H para 9000H. Rode o programa. Auto- 
maticamente, este "lombara" os bytes e os deslocara para os 
enderecos C800H a DOOOH. Na tela aparecerao os enderecos que 
estao sendo lidos e os que estao sendo tombados. Ap6s isso, 
redefinird os carac teres para testar a operacao. Grave com: 
BSAVE"INVTXT-1.ASM",&HC800,&HD000 

2.1.2 Estrutura 
LINHAS FUNCAO 
10-80 Linhas REM 

8 1 Coloca a rotina Assembly na memoria 

90 CLS 

100 Loop principal 

110-120 Chama assembly 

1 30 Define o endereco da tabela de bytes do alfabeto 

140-150 Indicam a L.M. onde cncontrar os bytes do alfabeto 

160 Define o endereco onde os bytes "tombados" serao 

colocados 

170-180 Indicam a L.M. onde colocar os bytes 

190 Fecha o loop 



191 Espera uma tecla 

195 Redefine 

210 SCREEN 1 

220-230 Imprime set de caracteres MSX 

250-290 Loop de redefinicao 

300 Imprime parcialmenle o novo set 

2.1.3 Variaveis 

H Inicio do alfabeto fonte 

G Representacao hexadecimal de H 

GS Representacao hexadecimal de G 

FN a(x) Endereco do caracter na tabela de padr5es da VRAM 

Carregue os dados invertidos na memoria com 
BLOAD"INVTXT-l.asm". Digite o programa impressor e rode. 
Enquanto estiver imprimindo, aperte ESC e vera, num passe de 
magica, os mistcriosos conteiidos dos rcgistradores do Z80, HL 
(endereco dos bytes) e A (c6digo ASCII do caracter), alem de saber 
se o modo grafico esta ligado ou n3o. 

Na linha 510 existe um comando DATA para colocar men- 
sagens. 

Existem 3 caracteres de controle. S3o eles: 

- Caracter * (asterisco) - liga o modo grafico 

- Caracter + (sinal mais) - desliga o modo grafico 

- Caracter % (porcentagem) - da um line feed na impressora 



Nas linhas 320 c 330 6 definido o comprimento do caracter 
(pontos na horizontal), valores de 1 a 8. 
Para inlcrrompcr, apcrte: 

CONTROL + SHIFT + LGRA + RGRA. 
Evite o CONTROL + STOP. 



2.2.2 Estrutura 

LINHAS 

10-80 

90 

10-240 

250-330 

350-370 

380 

390 

400 

410^20 

440-490 

500 

510 



FUNCAO 

Linhas REM 

Verifica se precisa colocar na mcm6ria a roiina 

em L.M. 

Roiina cm L.M. 

Inicializa 

Le mensagem e define caracteres de conirole 

Convene caracteres graficos e indica a L.M. 

Indica 'a L.M. caracter comum 

Chama L.M. e le registradorcs do Z80 

Espera ESC 

Mostra contetido dos rcgistradores Z80 

Fim 

DATA da mensagem 



2..3 Variaveis 

CS String da mensagem 

AS String da letra a imprimir 

V Codigo ASCII do caracter 

V" Indicador do modo grafico 

ES Indicador da tecla ESC 

ZS HL antes da impressao 
Z1S HL depois da impressao 



3. CONVERSOR 

O programa tem como objetivo converter alfabetos do Graphos 
(abreviatura Gra.) para o Print-X-Press (abreviatura P-X-P), que 
e uma Page Maker, ou vice-versa. As vantagens sao claras: o 
Graphos tem urn editor potente, facil e com uma gama dc 28 
alfabetos disponiveis no mercado; o P-X-P tem um editor super 
potente (lem recursos de animacao por "filmation", imprime os 
caracteres em um quadriculado na impressora com os bytes em 
hexadecimal, decimal c binario; fazendo, tambem, caracteres colo- 
ridos), mas n3o 6 de facil utilizacao, aldm dc tcr um compilador que 
6 uma "m3o na roda". 

Entao, esse conversor 6 titil para os felizardos que possucm os 
dois programas. 

3.1 Funcionamento 

Opcao 1 PermilelcrumalfabetodoP-X-P,comaextensao 

.MVF (P-X-P) 
OpcSo 2 Le arquivos com deslocamento 1 (P-X-P/GR A) e 

2 (GRA/P-X-P) 
Opc3o 3 Grava com parametros 1 ( GRA/P-X-P ) c 

2 (P-X- P)/GRA). 
Opcao 4 Cria partfcula .DAT, usado s6 para GRA/P-X-P. 

Opcao 5 Mostra tabela de parametros 

Opc3o 6 Files 

Opcao 7 Fim do programa 



Obs: Quando se quer utilizar o conversor do GRA para o P-X-P, 
deve-sc adotar 1 como deslocamento c parametro e, quando se quer 
o contrario, adota-se 2. 



3.2 Como utilizar 

A conversao do GRA/P-X-P 6 feita do seguinte modo: 

- pressione 1 carregue um arquivo .MVF; 

-pressione2 carregue um alfabeto. ALF com deslocamento 1; 

- pressione 3 grave um arquivo com extensao .MVF com para- 

metro 1; 

- pressione 4 de o nome do arquivo acima gravado - agora sem 

extensao. 

Do P-X-P/GRA i a seguinte: 

- pressione 2 carregue um arquivo. MVF e com deslocamento 2 

- pressione 3 grave um arquivo .ALF com parametro 2 

Obs: MVF 6 extensao do P-X-P; ALF 6 extensao do Graphos. 



3.3 Estrutura 

LINHAS FUNCAO 

10-19 Linhas REM 

20-23 Inicializa variaveis 

30-100 Menu 

1 1 0- 1 20 Seleciona escolha 

1 30 Volta ao menu 

140 Fim 

150 Opcao 1 

154 Recolhe dados 

155 LS arquivo .MVF (P-X-P) 
158-199 Retoma 

200 Opcao 2 

210-230 Recolhe dados 

240 Le arquivo D$ com o deslocamento D%(DE%) 

245-299 Retorna 

250 Opcao 3 

252-258 Recolhe dados 

260 Grava arquivo GS iniciando em EI% (P%) e 

finalizando EF%(P%) 

270-299 Retorna 

300 Opcao 4 

310-320 Recolhe dados 

330-345 Grava arquivo .DAT 

346-349 Retorna 

350 Opcao 5 

352-358 Imprime tabela 

398-399 Retorna 

400 Opcao 6 

410-430 Diretdrio 

500-550 Rotina dc tratamento dc erros 



3.4 Variaveis 




ES0 


Matriz dos parametros 


EI%0 


Matriz do endcreco inicial 


EF%() 


Matriz do endereco final 


D%() 


Matriz do deslocamento 


P% 


Parametro escolhido 


DE% 


Deslocamento escolhido 


S$ 


Escolha 


PX$ 


Nome do arquivo na opcao 1 


DS 


Nome do arquivo na opcao 2 


GS 


Nome do arquivo na opc3o 3 


PT$ 


Nome do arquivo na opcao 4 



CPU 31 



10 REM 


DRIVE A":A!=INPUTS(1) 


350 COLOR 3:CLS:PRINT SPC(15):"0PC80 5: 


1 1 REM C0NVERS0R 


156 BLOAD PXS 


":PRINT:PRINT SPC(9): "TABELA OE PARAMET 


12 REM OE flLFABETOS 


158 LOCATE 18.21 :PRINT"0K":AI=INPUTS<1) 


ROS" 


13 REM 


199 RETURN 


352 LOCATE 0.5:PRINT STRINGS(39."-"):L0 


14 REM PRRA MSX 1.1 


200 CLS:PRINT SPC(14) : "0PCA0 2":PRINT:P 


CATE 0.6.-PRINT SPC(4)"PARAMETR0 1" : SPC( 


15 REM 


RINT SPC(4) : "LER AROUIVO COM DESLOCAMEN 


9):"PRRRMETR0 2":L0CATE 0,7:PR1NT STRIN 


16 REM GUILHERME ft. L. SII.VA 


TO" 


GS(39."-") 


17 REM 02-09-88 


210 LOCATE 9,6:PR INT-NOME DO AROUIVO: " 


354 FOR IZ=0 TO 10:L0CATE 18,8+IZ:PRINT 


18 REM GUARARAPES 


:LOCATE 9,7: INPUT 01 


" ".'NEXT: LOCATE 0,18:PRINT STRINGK39." 


19 REM 


220 LOCATE 9.U:PRINT"DESL0CAMENT0 (1-2 


-"):LOCftTE 0.20:PRINT STRINGS (39."-") 


20 KEYOFF:CLEfiR 200.&H9200:0N ERROR GOT 


)":LOCATE 9, 12: INPUT DEZ: IF DEZ 1 AN 


356 LOCATE 3,9:PRINT"INICI0: D0FC":L0CA 


500 


D DEZ <> 2 THEN 220 


TE 3,12:PRINT"FINAL: DR10":L0CATE 3,15: 


21 DATA D0FC.9200.Dfll0.99FF.3EFC.C104 


230 LOCATE 6.16:PRINT"C0L00UE DISCO N 


PRINT"0ESL0C: 3EFC" 


22 FOR IM TO 6: READ ES(IZ):NEXT 


DRIVE A":AI=INPUTS(1) 


358 LOCATE 23,9:PRINT"INICI0: 9200": LO 


23 FOR IZ=1T02: EIZ(IZ)=VALCSH"+ES(IZ) 


240 BLOAD DS.DZ(DEZ) 


CATE 23.12:PRINT"FINAL: 99FF":L0CATE 23 


) : EFZUZ)=VAL("4H"+ES(IZ+2)):0Z(IZ)=V 


245 LOCATE 18.21 MINT "0K":AS=INPUTS<1 


,15:PRINT"DESL0C: C104" 


RL("&H"+ES(1Z+4)):NEXT 


) 


360 LOCATE 17,19:PRINT"0K":AI=INPUTI(1) 


30 CLS:PRINT TAB<5) : "» TRANSFORHADOR DE 


249 RETURN 


398 COLOR 15,1,1 


flLFABETOS 1" 


250 CLS:PRINT SPC(15) : "0PCAO 3: ":PRINT 


399 RETURN 


40 LOCATE 15.3:PRINT"HENU" 


:PRINT SPC(U);"GRAVAR AROUIVO" 


400 CLS:PRINTSPC(15);"0PCA0 6: ":PRINT: 


50 LOCATE 10.6:PRINT"E13 LER P-X-P" 


252 LOCATE 11.6:PRINT"N0ME DO AROUIVO: 


PRINTSPC(10)"AR0UIV0S DO DISCO" 


60 LOCATE 10.8:PRINT"[2] LER ALFRBETO" 


":LOCATE 11, 7: INPUT GS 


410 PRINT:FILES 


70 LOCATE 10.10:PRINT'T3] GRAVAR ALFABE 


254 LOCATE 11.11:PRINT"PARAMETR0S <l-2) 


420 PRINT:PRINT:PRINTSPC(17)"0K":RI=INP 


TO" 


: ":LOCflTE 11, 12: INPUT PZMF PZ<1 OR PZ 


UTS(l) 


80 LOCATE 10.12:PRINT"[4] CRIAR PARTICU 


>2 THEN 254 


430 RETURN 


LA" 


258 LOCATE 2.15sPRINT"C0L0QUE DISCO D 


500 IF ERR=53 THEN LOCATE 10,19:PRINT"R 


90 LOCATE 10.14:PRINT U [5] TABELA" 


ESTINO NO DRIVE A":AI=INPUTS(1) 


ROUIVO INEXISTENTE":PLflY"V1507C4":RESUM 


95 LOCATE 10.16:PRINT"C6] FILES" 


260 BSAVE GS.EIZ(PZ).EFZ(PZ) 


E NEXT 


96 LOCATE 10.18:PRINT"[7] BASIC" 


270 LOCATE 18.21:PRINT"0K":AS=INPUTS<1) 


510 IF ERR=56 THEN LOCATE 13,19:PRINT"N 


100 LOCATE 15.21 :PRINT"OPCR0: " : :SI=INP 


299 RETURN 


OME I LEGAL": PLAY "VI 507C4": RESUME NEXT 


UTS(l) 


300 CLS:PRINT SPC(15) : "0PCA0 4:":PRINT: 


520 IF ERR=69 THEN LOCATE 13,19:PRINT"e 


110 IF SSC1" OR SS>"7" THEN 100 


PRINT SPC(9) : "GRAVAR PARTICULA.DAT" 


rro ie e/s":PLflY"vl507c4":RESUME NEXT 


120 ON VAL(SS) G0SU8 150.200.250.300.35 


310 LOCATE 11.8:PRINT"N0ME DO AROUIVO: 


530 IF ERR=68 THEN LOCATE 11,19:PRINT"D 


0.400.140 


":LOCATE 11. 9: INPUT PTS 


ISCO PROTEGID0":PLflY"V1507C4":RESUHE NE 


130 GOTO 30 


320 LOCATE 6.14:PRINT"C0L00UE DISCO N 


XT 


140 CLS:KEYON:END 


DRIVE A":AS=INPUT1(1) 


540 IF ERR=66 THEN LOCATE 13,19:PRINT"D 


150 CLS:PRINTSPC(14) : "0PCfl0 1:":PRINT:P 


330 OPEN PTi+".DTA" FOR OUTPUT AS HI 


ISCO CHEI0":PLAY"V1507C4":RESUME NEXT 


RINT SPC(6) : "LER AROUIVO PRINT-X-PRESS" 


340 PRINT H1.PTS+".MVF" 


550 LOCATE 15,19:PRINT"ERR0 " : ERR:PLRY" 


152 LOCATE 11.9:PRINT"N0HE DO AROUIVO: 


345 CLOSE 111 


V1507C4":RESUME:NEXT 


":LOCATE 11. 10: INPUT PXI 


346 LOCATE 18.21 :PRINT"OK":Ai=INPUTI(l) 




154 LOCATE 6.13:PRINT"C0L00UE DISCO N 


349 RETURN 






* DRIVE 5.1/4 SLIN COMPLETO 
• PLACA80COLUNAS 

*MOOEN DE COMUNICAQAO 



♦EXPANSOR DE SLOT (C/4 SLOTS) 
• GABINETE P/DRIVE COM FONTE FR1A 
• INTERFACE DUPLA P/DRIVE 



12-50 ht — 



#PACOTA0 EM OBCO: 1 00 JOGOS (ISCOIXIR) 

*r*aniow fnt, ioojogosctscoihfr) 



5APUCAIIV0S + 10 0BCOS - 60.00 
5 WUCA1TV0S ♦ 7 RTAS - 60.00 



SOUCITE NOSSO CATALOGO DE PROGRAMAS PARA FA^FR A SUA ESCOLHA AFENDFMOS 1O0OS OS FSFAfXJS EM 74 HORA5 VIA SEDFX 
PARA FA2ER SEU PEDIDO ENVIF CHEQUE NOMINAL COM CARFA OFFAIHADA PARA A. NASSCB. 
BIO OI JANIIBO: RUA GONZAGA BASI05 411/203 - VILA ISABEl - RJ CEP 20541 - IEl [021) 234 077S 
FILIAL CUBIT1IA; AV 7 Dt SEIEMBf^O 3146 LOJA 20 - SHOPPING SEIE - CURHIBA - PR - CEP 80010 - IEl 232-0399 



32 CPU 



Fabastecaoi 

SEU 

NA ECTRON 





EQUIPAMENTOS PARA MSX 

Driver MSX 5 1/4 

Driver MSX 3 1/2 

Video Station 

Interface p/ Drive 

Cartao 80 Colunas 

Modem 

Monitores de Video 

Gabinete e Fonte p/ Driver 

Ponta Discos "Acrilico" 100 Discos 

Mesa para Computador 

Mesa para Impressora 



SUPRIMENTOS 

Disquetes 

Fitas p/ Impressora 

Formularios Continuos 

Capas Protetoras p/ Equipamentos 



LITERATURAS 

Livros 100 Dieas 

Livros 50 Dicas (EM LANCAMENTO) 

Livros Programacao Avancada 

Livros Astrologia 

Livros Curso de Musica 

Livros Curso de Basic 



— Fltas de Vfdeo 

• Na Ecatron voce encontra o ultimo 
lancamento "MPO" em videocassete 
"Curso de Basic MSX" acompanha livro. 

• "Dominando e MSX" 



SOFTWARE 

• D.Base Ferramenta Profissional p 
manipulacao de banco de dados. 

• Super Calc: A mais famosa Planilha de 
calculos. 

(Ambos com suporte tecnico e reposicao de 
versao) 



APLICATIVOS 
Os mais potentes do mercado 



JOGOS 

Temos a colecao completa inclusive os 
ultimos lancamentos. 

Solicite nosso calalogo inteiramente 
GRATIS. 



Nossa calxa Postal 12005 - Cep. 02098/ S3o Paulo/ 





= £ * g j i i~i£ I 



ECTRON ELETRONICA LTDA. 

Rua Dr. Cesar, 131 -Metro Santana -S.Paulo/SP 

TEL: (011) 290-7266 



BUTTY SPRITE 



ALEXANDRE C. DULUUS 



O programa que aprcscnto 6 um editor de sprites com vdrios comandos que ir3o auxilii-lo na confeccSo de sprites de 16x16. 
Este programa chama-se Butty Sprite c a sua vers3o 6 a 1 .0. Sua opcracao 6 simples e a sua digitacao um pouco cansativa. 
Depois de digitado e gravado em disquete ou fita cassele, rode o programa com o comando RUN. 

Para mover o sprite dentro do quadro de desenho, use as setas que movimentam o cursor e, para marcar ou apagar um ponto do sprite, 
use a barra de espacos. 

Para tcr accsso aos comandos, deve-se teclar, primeiramente, a tecla Fl . 
Os comandos disponiveis no Butty Sprite s3o os seguintes: 



HOME/CLS - 

INSERT - 
DELETE - 
ESC- 



CONTROL + A 
CONTROL + B 

CONTROL + C 

CONTROL + D 

CONTROL + E 

CONTROL + F 

CONTROL + G 



Limpa o sprite, apagando-o da memoria e da 

tela. 

Pinta loda uma Iinha. 

Apaga toda uma linha. 

Sai do programa. Nesta opcao, o programa ira 

solicitar confirma?3o c, cm caso positivo , o 

programa acessa o Basic. 

Inverte lodo o sprite. 

Faz com que todo o sprite seja deslocado uma 

linha para cima. 

Faz com que todo o sprite seja deslocado uma 

linha para baixo. 

Faz com que todo o sprite seja deslocado uma 

coluna para a direita. 

Faz com que todo o sprite seja deslocado uma 

coluna para a esquerda. 

Faz uma copia do bloco 1 sobre os blocos 2, 3 

e 4. conteudo dos blocos 2, 3 c 4 c pcrdido. 

Faz uma c6pia do bloco 1 sobre o 3 e do bloco 

2 sobre o 4 . O conteudo dos blocos 3 e 4 6 

pcrdido. 



CONTROL + H - 
CONTROL + 1 - 
CONTROL + J 

CONTROL + M - 

CONTROL + N - 
CONTROL + O - 



Lista estes comandos no video. 

Lista estes comandos na impressora. 

Lista os dados do sprite em hexadecimal na 

tela. 

Lista os dados do sprite em hexadecimal na 

impressora. 

Inverte coluna. 

Inverte linha. 



Para lcr o sprite, digite este pequeno programa: 

10 SCREEN 2, 2 : FOR A=l TO 16 : READ A$,B$20 

C$=C$+CHR$ (VAL ("&H"+A$) ) 

30D$=D$+CHR$ (VAL("&H"+B$) ) 40 NEXT A : 

SPRITE$ (1) =C$+D$50 PUTSPRITEO, (127, 97) , 15, 1 

: GOTO 50 

60DATAFF,FF, 80, 1,80, 1,80, 1,80, 1,80, 1,80, 1,80, 

1, 80, 1,80, 1,80, 1,80, 1,80, 1,80,1, 80, 1,FF,FF 



1 ' ******************************** 

2 ' * BUTTY-SPRITE' s 16x16 * 

3 ' * By:Alexandre Cardoso DuIIilis * 

4 ' * Rua Lindolfo Col lor 111 * 

5 ' * Sapiranga RS C£P:93800 * 

6 ' * Revista CPU "guia Inf. LTDA * 

7 ' ******************************** 

8 FCF^lTO10:KEYA,'''':r<E>rrA:GOTO65 

9 ' CTRL-*A 

10 GOBLB95:A*= ,, CTRL^A ,, :G0SLB62:BDSLB122 
:L=0:FTJRD=41TO162STEFS: K=0:L=L+1 :FURD=1 

6TD138STEP8 : K=K+1 

11 IFTOIOT(D+5,C+5)=14THEN_IlvE(D+i,C+l) 
-(D+8,C+8) ,1,BF:PRESET(K+17,L+17) ,1:P(K 
,L)=0:GOTO13 

12 LINE(D+1,C+1)-<D*8,C-*8),14,BF:PRESET 
(K+17,L+17) ,15:P(K,L)=1 

13 NEXTD,C 

14 QOTDBB 

15 ' ESC 

16 QOSUB95:A*="EBC":GOSLe62:E=155:F=106 
:B=15:A*="CONFIRIiA(S/N) " :G0SUB62 

17 Bt=IhPUT*(l):IFB*="S"Tl-EhEM) 

18 IFB*="N"TFENBB 

19 GOT017 

20 ' DELETE 

21 Q0BLe95:A«=' , DELETE ,, :60aJB62:FDRD=16T 



013BSTEP8:LIrJE(D+l,Y+l)-(EH8,Y-ie),l,EF: 
INEXTD 

22 D=INT((Y-40)/8)+l:FaRZ=lTO16:P(Z,C)= 
0:PRESET(Z+17,C+17) ,1:I\EXTZ 

23 BOT088 

24 ' INSERT 

25 GOBUB95:A*= ,, IhBEJ^ , ':GOBlJB62:FDRD=16T 
0138STEP8:LIf>E(D+l,Y+l)-(D+e,Y+e),i4,EF 
rlvEXTD 

26 C=INT((Y-40)/8)+l:FGRZ=lTO16:P(Z,C)= 
1:PRESET(Z+17,C+17) ,15:|\EXTZ 

27 QOTDBB 

28 ' HOt OU CLS 

29 GOBUB95:A^"HDrt/CLS* , :00BUB62:BOSUBl 
22 

30 LIf£(14,14)-(40,3S),l,EF:LIf*E(14,14) 
-(40, 3B) ,2,B:LI^E(15,40)-(145,170) ,1,BF 
:LirC(15,40)-(145,170) ,4,B:FTJRD=1TD16:F 
aRC=lTO16:P(D,C)=0:^EX^C,D:GOTO8B 

31 ' Fl 

32 SOUrvD8,8:FCRA=<255TinSTEP-15:SC]LMD0,A 
:hEXTA:SOUM30,0:LINE(90,180)-(150,190) , 
1,BF:LHNE(152,100)-(240,18B) ,l,BF:LIhE( 
152,100)-(240,188) ,6,B 

33 A*=IM :, UT*(1 ) : IFASC(A*)=32THEN33 

34 IFASC(A*)=110RASC(A*)=12T>BM29 

35 IFABC(A»)=18T1-EN25 



34 CPU 



36 IFASC(A*)=127TJ-EN21 

37 IFASC(A*)=27THEN16 

38 D=ASC(A*):GNDGOTD10,97, 90,111, 107, 11 
4, 118,124, 147, 151,,, 161, 166,171 

39 G0TO33 

40 ACENDE OU APASA 

41 IF5TRIG(0)<>0PNDPOIlNrr(X+5,Y+5)=14TVE 
M_I»vE(X+i,Y+l)-(X+e,Y-H3) ,i,BF:D=INT< (X- 
15)/B)+l:C=INT((Y-40)/8)+l:P(D,C)=0:PRE 
SET(D+17,C+17) ,1:G0TD43 

42 IFSTKIG(0)O0TVENLIf»E(X+l,Y+l)-(X+8, 
Y+8) ,14,EF:D=INT( (X-15)/8)+l:OINT( (Y-4 
0)/8)+l:P(D,C)=l:PRESET(D+17,C+17) ,15 

43 RETURN 

44 PUTSPRI7E0,(X,Y),15,1:GOSLB41 

45 GOTD65 

46 ' MOVIMENTO 

47 K=STICK(0)+8TICK(1)+STICK(2) 

48 IFK=171-ENY=Y-8 

49 IFK=2T>B>IX=X+8:Y=Y-B 

50 IFK=3Tl-ENX=X-te 

51 IFK=4TT-ENX=X+8:Y=Y+e 

52 IFK=5TVENY=Y+8 

53 IFK=6TJ-ENX=X-8:Y=Y+8 

54 IFK=7TJ-€NX=X-8 

55 IFK=871-ENX=X-e:Y=Y-8 

56 IFX<16THENX=16 

57 IFX>136T1-ENX=136 

58 IFY<4171-ENY=41 

59 IFY>161THENY=161 

60 RETURN 

61 ' IMPRESSAO 

62 R^D=lTCLEN(A*):SaUND0,E:rJRAW , 'BM' , +BT 
R»(E)+","+S7R*(F):C0L0RG:PRINT#l,MID*(A 
*,D,1) 

63 E=E-tM:NEXTD:SaLND0,0:RETURN 

64 ' Rotina Defaut 

65 C0LCR15,l,l:CLEflR:DEFINTA-Z:MftXFILES 
=3:CPEN"GRP: "FDRDUTPUTflSt*! :SCREEN2,2,0s 
EEEP 

66 ' Limpa ma triz, define variaveis 

67 DI^(16,16),J(16,16):F0RD=1TD16:FURD 
=1TD16:P(C,D)=0:NEXTD,C:X=16:Y=41:S=1:B 
EEP 

68 ' Define Sprite 

69 FOra>=lTaB:RE«)A*:B»=S*+CM : W(^^L("«*^ , ■ 
+A* ) ) :NEXTD:BEEP:SPRITE*( 1 )=fi*:DATABl ,6 
6,66,0,0,66,66,81 

70 P0KE&HFCAB,1 

71 ' DESENHA TELA 

72 LINE(14,14)-(40,38),2,B 

73 LINE(15,40)-(145,170),4,B 

74 E=70:F=3:G=10:H=7:A*= ,, BUTTY-SPRITE": 
SOUNDS, 8 

75 GDSUB62:E=71:GOSiJB62:E=44:F=13:G=3:H 
=7:A*="By->Alexandre Cardoso Dullius":S 
OSLB62 

76 E=43:QOSiJB62:E=55:F=23:B=7:H=16:A*= ,, 
REVISTA OPU ,, :GOSUB62:E=56:BOSUB62 

77 E=63:FK32:G=10:B=7:A*="Aguia Informa 
tica LTDA" :SOSLE62:E=62:GOSUB62 

78 E=152:F=50:G=15:H=6:A*="PARA DIGITAR 



LW":GOSLB62:E=i52:F=5B:A*= ,, COMANDO , T 
ECLE" :G0SUB62 

79 E=152:F=66:A*=" Fl ANTES .'H":GOSUB 
62 

80 E=2B:F=181:G=11:H=7:A*=''C0MAND0=>' , :G 
OSUB62 

81 LINE(152,100)-(240,188),6,B:BEEP 

82 ' LOOP PRINCIPAL 

83 PUTSPRITE0,(X,Y),15,1:6OSUB47 

84 PUTSPRITE0,(X,Y),15,i:GOSUB41 

85 KEY(l)0N:ah*:EYGOSUB32 

86 GOTOB3 

87 ' LIHFA GUADRO 

88 LINE(152,100)-(240,18B),1,BF:LINE(15 
2,100)-(240,18B) ,6,B:GOTOB3 

B9 ' ctrl-k: 

90 GOSUE^5:A*= , 'CTT^-H3":GOSUB62:GDSLEll22 

91 F0RB=1T016:J(B,1)=P(B,16):NEXTB 

92 F0RA=lTO15:F0RB=lTO16:J(B,A+l)=P(B,A 
):NEXTB,A 

93 GOTO102 

94 ' DDD 

95 E=90:F=181:G=10:H=6:RETURN 

96 ' CTRL+B 

97 GOSUB95:A^ ,, CTRL+B ,, :GOSUB62:GOSUB122 

98 FDRB=1T016:J(B,16)=P(B,1):NEXTB 

99 FORA=16TQ2STEP-1:FORB=1T016:J(B,A-1) 
=P(B,A) :NEXTB,A 

100 GOTO102 

101 ' AJUDA 

102 FDRA=lTO16:F0RB=lTO16:P(B,A)=J(B,A) 
:NEXTB,A:K=0:FTJRB=41TO163STEP8: K=K+1 :L= 



103 F0RA=16TO137STEP8:L=L+l:IFP(L,K)=lT 
hEM_ItvE(A+i,B+l)-(A+G,B+8) ,14,BF:PRESET 
(L+17,K+17) ,15:GDTD105 

104 LIhE(A+l,B+l)-(A+8,Bt8),l,BF:PRESET 
(L+17,K+17),1 

105 NEXTA,B:GOTD8B 

106 ' CTRL+E 

107 GDSUB95:A^''CTRL-fE ,, :GOSUB62:GOSUB12 
2 

108 F0RB=lT016:J(16,B)=P(i,B):NEXTB 

109 FDRA=16TD2STEP-1:FDRB=1T016:J(A-1,B 
)=P(A,B) :NEXTB,A:GOTD102 

110 ' CTRL+D 

111 G0SUB95:A*= ,, CTRL+D , ':60SIJB62:G0SUB12 
2 

112 FORB=lTO16:J(l,B)=P(16,B):NEXTB:F0R 
A=lTO15:F0RB=lTD16: J (A+l ,B)=P( A,B) :hEXT 
B,A:GOTO102 

113 ' CTRL+F 

114 GOSLB95:A^ , 'CTRL+F' , :GOSlJB62:GOSlJB12 
2 

115 FTJRA=1T016:FTJRB=1T016:J(B,A)=P(B,A) 
:NEXTB,A 

116 FaRA=2T04:F0RB=lTO16:J(A,B)=P(l,B): 
NEXTB,A:GOTO102 

117 ' CTRL+G 

118 GOSLe?5:A»=' , CTRL-H3 ,, :GOSiJB62:GOSUB12 



119 F0RA=1TD16:FDRB=1T016:J(B,A)=P(B,A) 



CPU 35 



:NEXTB,A 

120 FDRB=1T016:J(3,B)=P(1,B):J(4,B)=P(2 
,B) :NEXTB:GOTO102 

121 ' PROCESSANDO 

122 E=155:F=123:B=15:»4=6:A*="«3UflRDE!": 
G0SUB62 : E=160 : F=148 : 6=14 : H=6 : A*="PROCES 
SANDO. . . " :GOSUB62:RETURN 

123 ' CTRL-HH 

124 REST0F£126:SCREEN2:G=ll:F=5:H=6:FrJR 
B=lT017:E=9:READA*:GOSUB62:LINE(6,F-2)- 
( (LEN(A*)*6)+13,F+B) ,13,B:F=F+11:NEXTB 

125 A*=IM D Lrr*(l):CLS:K==0:FORB==417D162ST 
EPS: K=K+1 :L=0:FORA=16TO137STEP8:L=L+1 :G 
0TD143 

126 DATA HDME/OLS - LIMPA A SPRITE 

127 DATA INSERT - PINTA TDDA LINHA 

128 DATA DELETE - APAGA TODA LIMHA 

129 DATA ESC - SAI DO PROGRAMS 



130 DATA CTRL+A 

131 DATA CTRL+B 

132 DATA CTRL+C 

133 DATA CTRL+O 

134 DATA CTRL+E 

135 DATA CTRL+F 

136 DATA CTRL+G 

137 DATA CTRL-m 
13B DATA CTRL+I 
SGRA 

139 DATA CTRL-hJ 
O 

140 DATA CTRL-HI 
ESSORA 

141 DATA CTRLHM 

142 DATA CTRL+O 



- INVERTE OS QUADROS 

- SCROLL P/ CIMA 

- SCROLL P/ BAIXO 

- SCROLL P/ DIREITA 

- SCROLL P/ ESQUERDA 

- ESPELHO 1/4 

- ESPELHD 1/2 

- LISTA COMANDOS VIDEO 

- LISTA COMANDOS IMPRES 

- LISTA DADOS HCX. VIDE 

- LISTA DADOS HEX. IMPR 



INVERTE SO COLUNA 
INvERTE SO LIlvHft 

143 IFP(L,K)=lThENLINE(A+l,B+l)-(A+B,B+ 
8) ,14,BF:PRESET(L-t-17,K+17) ,15:G0T0145 

144 LINE(A+1,B+1)-(A+8,BH3),1,BF:PRESET 
(L+17,K+17),1 

145 hEXTA,B:RETlJRN72 

146 ' CTRL+I 

147 GOSUB95:A^"CTRL+I":G05UB62:E=153:F 
=105:G=15:H=6:A*="TECLE ALGO":GOSUB62:E 
=15B:F=113:A*="PARA IMPRIMIR" :GOSUB62 

148 At=INPUT*(l):E=160:F=132:G=14:At="I 
M D RIMIMXD...":GOSlJB62:LPRirvn"" COMANDO 
S DO BUTTY SPRITE 1.0" 

149 RESTORE126:BEEP:FORB=lT017:READA*:L 
PRINTA* : LPRINT iNEXTB : GOTDBB 

150 ' CTRL-hJ 

151 GOSLB95:A^"CTRL^":GCeJB62:GOSUB12 
2:SCREEN2:COL0R15:DRAW"H«l9,5":F0RA=lTOl 



6:FORB=1T016 

152 P*=P*+RIGHT*(STR*(P(B,A)),1):NEXTB 

153 T*=LEFT*(P*,8):K«=RIGHT*(Pt,8) 

154 U*=HEX*(VAL("«B ,, +T*)):L»=»-EX*(VAL(" 
&B"-H<*) ) 

155 PRINT#1 ,L»; " , " ;L*; " , " ; :P»=" " :T*=P*: 
K*=T*:L*=K* 

156 IFA^5Tm\ERAW"BM9,15" 

157 IFA=10T1-ENDRAW"BM9,25" 

158 IFA=15THENDRAW"BM9,35" 

159 NEXTA:G0T0125 

160 ' CTRL-HI 

161 GOSUB95:A^"CTRL-H1":GOSUB62:E=155:F 
=123:G=14:H=6:A*="TECLE ALGO ,, :GOSUB62:E 
=160:F=133:G=15:A*="PARA IMPRIMIR" :GOSU 
B62 

162 At=IhFtJr*(l):E=155:F==145:A«="IMPRIM 
INDO...":GOSUB62:LPRINT" DADOS DO SPRI 
TE...DRIADO NO BUTTY" 

163 FTJRA=lT016:FORB=lT016:Pt=P*HRIGHT*( 
STR*(P(B,A) ) ,1) sNEXTB:T*=LEFT*(P»,8) :K* 
=RIGHT*(P*,8) :U*=t-E**<VAL("&B"+T*) ) 

164 L*=+tX*(VAL("«(B"+K*)):LPRINTU«;","; 
P*; " , " ; :Pt="" :T«=P*:K«=T*:L*=K*:NEXTA:C 
LS:GOT0125 

165 ' CTRL+N 

166 GOSUB95:A^"CTRL-HNJ , ':GOSUB62:GOSUB12 
2:FORB=41T0163STEP8:A=INT( (X-15)/8)+l:C 
=INT((B-40)/8)+l 

167 IFP(A,C)=lTHEhP(A,C)=0:LINE(X+l,B+i 
)-(X-H3,BH3) ,1,BF:PRESET(A+17,C+17) ,1:G0 
T0169 

16B P(A,C)=l:LINE(X+l,B+i)-(X-H3,BH3),14 
,BF:PRESET(A+17,C+17) ,15 

169 l\EXTB:GOTOB8 

170 ' CTRL+O 

171 GOSUB95:A*^"CTRL-H3":G0SUB62:GOSUB12 
2:F0RB=16T013BSTEPB:A=INT( (Y-40)/8)+l:C 
=INT((B-15)/8)+l 

172 IFT^(C,A)=lT>GvP(C,A)=0:LINE(B+l,Y+i 
)-(BH3,Y48) ,1,BF:PRESET(C+17,A+17) ,1:60 

T0174 

173 P(C,A)=l:LINE(B+l,Y+l)-(B+e,Y-H3),14 

,BF: PRESET (C+17,A+17) ,15 

174 NEXTB: GOTDBB 

175 ' 

176 ' ESTE PROGRAMA FOI DESEWvOLVIDO 

177 ' FOR ALEXANDRE CARDOSO DULLIUS, 

178 ' EM DEZEMBRO DE 198B , NLM MICRO 

179 ' EXPERT,ESPECIALMENTE PARA A 

180 ' REVISTA CPU 

181 ' 



36 CPU 



JANELAS EM SCREEN 



RICARDO P. RYMSZA 



Jd ficou provado que a ulilizacao de janelas, al6m de dar melhor apresentacao aos programas ainda os lorna de mais facil 
utilazacao. Porem , a programacao de tais janelas era feila atraves do comando LINE, o que exigia que o programa trabalhasse em SCREEN 
2, o que trazia um s6rio problema, que e" a resolucao de caractercs na tela. 

O programa que apresento a seguir gera janelas de tamanhos diversos e em SCREEN 0, aprovcilando a resolucao de 40x24 
caractcres, tendo possui duas variacoes de janelas: uma cm que a janela sc sobrepoe a oulra anterior e oulra em que a janela aparcce e 
desaparece, mantendo o texto anterior intacto. 

As linhas 500 a 580 salvam, a partir do endereco &HA000, a parte da tela que 6 apagada pela nova janela. Os caractercs s3o lidos 
diretamente da VRAM e escritos na RAM. 

As linhas 700 a 780 recolocam na VRAM a parte da tela que foi apagada pela janela. 

As linhas 1000 a 2050 geram as janelas definidas atrav6s dos numeros contidos nas variaveis X, Y, L e A. 

Encerro cstc artigo com esta breve explica?3o do programa, lembrando ao leitor que nenhum programa e absolulo e nenhum 
programadoriS perfeito. O leitor deve modificar estas rotinas conformcas suas necessidades, aumentando a sua vclocidade e aperfeicoando- 
o, pois este c o unico e verdadeiro modo se aprender a lidar com qualquer Iinguagem, desdc o Basic ao Assembler. Qualquer duvida ou 
sugestao serf bem recebida, bastando para tal entrar cm contato com a rcvista CPU. 



i ' Janelas em screen 

2 ' por Ricardo P. Rymsza 

3 ' Revista CPU 

4 * 

10 CLS 

20 WIDTH40 

29 KEYOFF 

30 ' 

31 X e Y sao as coardenadas da janela 

32 ' L e a largura da janela 

33 ' A e a altura da janela 

34 ' 

40 FURW=lTDB80:PRINT"»";:hEXTW 
60 X=2:Y^:L=15:A=10:GOSUB1000 

70 LDCA7E3,3:PRINT"Esta rotina" 

71 LXXATE3,4:PRINT"permite a" 

72 LOCATES, 5 :PRINT"criacao de" 

73 LaCA7E3,6:PRINT"Janelas em" 

74 LOCATES, 7:PRINT"Screen 0. " 

75 UDCATE3,9:PRINT"Tecle espaco" 
80 IFINKEY$=""TVENB0 

90 X=7:Y=5:L=15:A=10:GC9JB500:GOSUB1000 
100 LOCATES, 6:PRWT"Cabe agora ao" 
110 LOCATE8,7:PRINT"leitor, aper-" 
120 L0CATE8,8:PRim""feicoar esta" 
130 LOCATES, 9: PRINT" rotina ou " 
140 LDCATE8,10:PRIhrr"criar novas." 
150 LOCATES, 12:PRIIvn-"Tecle espaco" 
155 IFINKEY*=""T!-EN155 

160 6OSLB700:X=2:Y=15:L=34:A=3:GOSUB100 


170 LOCATES, 16:PRINT"Janelas v 1.2 por 
Ricardo Rymsza" 
190 GOTO 190 



Ricardo P. Rymsza, 15, cursa a I s sene do 2 s grau do Colegio 
Santo Inacio, programando em micros da linha MSX ha 3 
anos, utilizando as linguagens Basic e Assembler. 



LA^^AROSO 



"OS MAGOS DO MSX" 



CONHEQA NOSSA QUALIDADE IMPECAVEL E A EXPERIENCE DE 
CAJEM LIDA COM MSX HA MAIS DE TRES ANOS. NOSSO ACERVO TEM 
CERCA DE 2100 TITULOS (MUITOS COM DOCUMENTAgAO), E 
CRESCE SEMANALMENTE COM GRANDES NOVIDADES E PROMO- 
COES...VAMOSI SEJA MAIS UM DOS MAIS DE MIL FELIZES CLIENTES 
DO MAGO DO LAZZAROSOFT. 



JOGO 


NCZS1.00 


APLICATIVO 


NCZ$2,00 


CP/M 


NCZ$4,00 


COPIADOR 


NCZ$4,00 


DISCO 


NCZ$2,00 


FITA 


NCZ$2,00 


DESPESAS 


POSTAIS * 




NCZ$0.00 



'V- 



"MSXBOOK II (DICAS DE JOGOS) " 
"EDTRONIC" 




"FUNTSTONES-TRIPLE COMMANDO-SOL NEGRO 1 & 2 

NAVY MOVIES-TERRA MEX-TUXY-TETRIS-WALL RUNNER-VECTOR 

MOON LANDING-ADDICTA BALL-NEO-Z-DANGER MOUSE- 

PERTER BEARDLEY'SFOOTBALL-OUEEN ll-DUCKYS-FLICKY- 

SQUARE-RAMPART-CHUBBY CRISTLER-OPERATION WOLF- 

ASPAR-PITMAN-FINAL COUNTDOWN-RED OCTOBER ETC." 



Seu pedido poder4 ser pago com vale postal (AG. Centre) ou cheque no- 
minal cruzado a Carlos H. B. Magalhaes contendo um maximo de inlorma- 
coes sobre seu equipamento e um telelone para eventual contato. 
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DESCONTAO NO TOTAL: 10% 
SOLICITE CATALOGO GRATIS 
NOVIDADE SEM PACOTE E AQUI 
ENTREGA EM 24 HORAS + CORREIO 



CAIXA POSTAL 1955 RIO DE JANEIRO RJ CEP:20001 

CPU 37 



500 ' 


780 RETURN 


501 ' Rotina que salva a parte da tela 


1000 ' 


502 ' que sera preenchida com a janela. 


1001 ' Rotina que cria Janelas em 


503 ' 


1002 ' screen 


504 N=Y*40+X:O=&HA000 


1003 ' 


505 FORV=1TOA 




1IO04 lh(L+X)>oVlrtiM_=L- 1:QDTD1004 


510 R=N 


1005 IF(A+Y)>237HENA=ft-l:G0TD 1005 


520 F0RF=1T0L 


1006 V*=Y:T=1:LDCATEX,Y 


530 POKE(0),VPEEK(R) 


1010 PRINT"+"; 


540 0=0+l:R=R+l 


1020 FDRV=iT0L-2 


550 NEX7F 


1030 PRINT"-" ; sNEXTV 


560 N=N+40 


1040 PRINT"+" 


570 |\EXTV 


1045 T=T+1 


580 RETURN 


1050 IFT=AT1-EN2000 


700 ' 


1060 LOCATEX,W+l 


701 ' Rotina que retoma a parte da te- 


1070 PRINT"!"; 


/02 la que foi preenchida c/ a janela 


10B0 FDRR=X+lTD(X+(L-l))-l:LDDftTER,M+l: 


703 


PRINT" ";:NEXTR 


704 N=Y*40+X:O=&HA000 


1100 LDCATER,W+l:PRINT"f" 


705 FORV=lTOA 


1110 T=T+1:W=4"^1:GDTD1050 


710 R=N 


2000 L0CATEX,Y+(A-1) 


720 FORF=lTOL 


2010 PRINT"+"; 


730 VPOKE(R) ,PEEK(0) 


2020 F0RV=lT0L-2 


740 OCH-l:R=R+l 


2030 PRINT"-" ; :NEXTV 


750 NEXTF 


2040 PRINT"+" 


760 N=N+40 


2050 RETURN 


770 |\EXTV 
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PARATAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A AGUIA INFORMATICA, OU VALE POSTAL 
(PAGAVEL NA AGENCIA COPACABANA), NO 
VALOR DE NCz$ 7,00 (SETE CRUZADOS NOVOS). 

FAQA A SUA ASSINATURA E CONCORRA AO 

SORTEIO DE PROGRAMAS DA PAULI SOFT. 

( EDTRONIC - SPRITE MAKER - MSX TURBO - 

FAST COPY ) 



NOME: 

ENDERECO: 

BAIRRO : CEP : 

CIDADE : ESTADO : 

DADOS DO EQUIPAMENTO : 



AGUIA INFORMATICA 
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PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A AGUIA INFORMATICA, OU VALE POSTAL 
(PAGAVEL NA AGENCIA COPACABANA), NO 
VALOR DE NCz$ 7,00 (SETE CRUZADOS NOVOS). 

FAQA A SUA ASSINATURA E CONCORRA AO 

SORTEIO DE PROGRAMAS DA PAULI SOFT. 

( EDTRONIC - SPRITE MAKER - MSX TURBO - 

FAST COPY ) 



NOME: 

ENDEREgO: 

BAIRRO : CEP : 

CIDADE: ESTADO 

DADOS DO EQUIPAMENTO : 



AGUIA INFORMATICA 



MSX E dBASE II, 

A CAMINHO DE SUA EMPRESA 



DINO POLLETO 




Nos ultimos anos, conversas sobre mi- 
crocompuladores, informatizacao e software 
t6m se tornado comuns. Quem n3o souber abso- 
lutamente nada sobre o assunto corre o risco de 
ficar apenas ouvindo, ouvindo. Quem sabe, 
envergonhado. 

Se o ouvinte c um emprcsario, entao o 
constrangimcnto pode ser maior porque onde ja 
se viu um empresario que n3o sabe falar de 
computador, se ate" criancas e jovens andam 
falando disso! 

Mas, a verdadc 6 que qualquer pessoa estara sendo injusta 
consigo mesma se considerar-se "ignorantc" cm computacao. Afi- 
nal, quem fica envergonhado por n3o saber nada sobre geladeiras 
alem, e claro, de abrir a porta e apanhar uma ccrveja geladinha, ou 
por nao saber nada sobre mecanica de automoveis? 

Do mesmo modo, ningu6m deveria se cscondcr cada vez 
que comecasse a ouvir falar em teclados, micros, drives, modens, 
softwares, etc. 

O que fazer? 

No mundo empresarial, banco de dados, processadores de 
texto, planilhas eletronicas e geradores graficos estao entre as 
ferramentas de produtividade mais necessarias e mais procuradas. 



Chamamos a isso dc software de produ- 
tividade porque s3o ferramentas que melhoram 
nossa producSo porfissional. 

No caso de empresas, dados sao impor- 
tantes quando se qucr fazer algum diagnoslico, 
quando se quer saber alguma coisa, quando se 
quer lomar uma decisao. 

Nestes tempos dc concorrcncia feroz, a 
correta administracao das atividades (producao, 
rcccbimento de dinheiro c pagamento de 
brigades) 6 mais do que vital. 
Quem tern suas informacocs sobre custo anotadas em 
algum lugar consegue fazer o orgamento mais rapido que a 
concorrcncia. Quem sabe quanto vai ter que pagar no fim do mes 
pede mais cedo o desconto dc duplicatas ou cmpr6stimo para capital 
degiro. Quem sabe qual o banco que tern mais duplicatas para cobrar 
sabe anas de qual gerentc correr na hora do apcrto. 

Quando se fala em gerenciador de banco dc dados 6 preciso 
ter cm mente tres coisas: 

- o sistema armazena informacOes? 

- ele modifica as informacOes quando voce decide? 

- o sistema recupera essas informacQes quando voce decide? 
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Numa analogia simples, um Sistema que armazcna 
informacOcs pode ser: uma secretaria, um bloco de fichas em 
branco, um lapis, um arquivo dc gavelas, uma tira de etiquetas 
adesivas. 

A parte que modifica as informacSes fica sendo: uma 
secretaria, um lapis, uma borracha, cola. 

E o sislcma que recupera informacoes fica assim: uma 
secretaria paciente, rapida, con Havel, que n3o falte, que nao pcrca a 
chave do arquivo, resistcntc, corajosa. 

Pois e, se voce descobrir uma sccrciaria que seja tudo isso.ela 
vale seu peso em ouro. Ponha-a no scguro. Vale mesmo. 

Mas cla nunca sera um computador. Resistente, incansavcl, 
riipido, confiavel e que usando um gerenciador de banco de dados, 
como o dB ASE II, faz infinitamente mais do que o sislema descrito 
acima. 

Os pequenos e m6dios empresarios precisam que a 
informatica Ihcs proporcione benefi'cios imediatos e ao menor custo 
possfvel. Assim, e provavel que sua empresa nao precise dc um 
IBM-PC, pclo menos por enquanto. Dc qualquer modo, 6 prcciso 
somar os precos de hardware, software e acessorios, alem de avaliar 
o custo/beneficio. 

Enfim, o dinheiro a ser empregado vai realmente melhorar 
os servi9os, agilizar as decisOes? 

Lcmbrc-se que um computador mal adaptado as necessi- 
dades ou ao pone dc sua empresa n3o presta scrvico nenhum, so 
atrapalha. E um software sem rccursos, ou dc rccursos escassos nao 
resolve nenhum problema, ao contraiio. 

A primeira vista pode parecer que se trata apenas de procurar 
uma boa empresa de informatica e comprar os equipamentos 
necessarios. Na maioria dos casos, o inleressado encontra uma das 
muitas lojas que existem nas grandes cidades c pede oricntacao, 
sendo que nem semprc conscguc o que prccisa. 



Caso encontre algum programa que pareca interessante, 
deve pedir para vc-lo em funcionamento, experimenta-Io, ser exi- 
gente. 

Se precisar de alguma caracterfstica e algucm reponder rapi- 
damentc que nSo da, € bom desconfiar. Geralmente da, mas a pes- 
soa i que n2o sabe como fazer e n3o quer confessar. 

Faca o seu papel de consumidor. Afinal de contas, o dinheiro 
6 seu. 

E bom Iembrar que, por mais que se multipliquem as escolas 
que ensinam as linguagens BASIC c COBOL, a programacao de 
computadores sempre sera uma alividadc de cspccialislas que 
passam dias, semanas, meses, tentando montar grandes quebra- 
cabecas. 

Trata-se de uma atividade que consome muito tempo, cxigc 
dedicacao dc aprendizado, tecnica em conslantc apcrfcicoamcnto c 
um conhecimenlo prof undo de logica e das linguagens com as quais 
se trabalha. 

Quanto ao Basic, uma linguagem inventada em 1964, esta 
bem longe das neccssidades dc hoje. 

Mas e agora? 

Voce ja oplou pelo poderoso hardware MSX. Se na sua 
configuracao liver pelo menos um disk drive e" meio caminho 
andado. E s6 adquirir o software. 

Vale a pena lembrar a i mportancia da compatibil idadc do seu 
software para MSX com um software para IBM-PC, pois isto facili- 
tara a migracao futura, se nccessario, dos seus arquivos e da prdpria 
cultura do software. 

Um exemplo 6 o dB ASE II Plus MSX , que vem a ser o linico 
gerenciador de banco de dados do mercado e que ja facilitou e 
agilizou a vida de muitas empresas e que merece uma atencao 
especial na hora de se montar um sistema que exige a manipulacao 
dc dados. 



O MULTIMODEM tf&L LIGA VOCE AO MUNDO 

Seu MICROCOMPUTADOB * estd desinformado, com cara de quem jd fez tudo 



o que podia? 

Volte a ativa com o MULTIMODEM DA 
TELCOM, que lhe deixa na ponta dos dedos o 
Brasil e o mundo. Voce tem acesso a bancos de 
dados como: CIRANDAO, BIREME, RENPAC, 
SAMPA, VIDEOTEXTO, entre outros, atraves 
de ligagoes a grandes sistemas de computadores 
que tambem lhe proporcionam, troca de infor- 
magoes, programas e jogos. 

Voce sai do isolamento, ganha novos 
amigos e ainda tem a mao o melhor da 
TELEINFORMATICA. 

O MULTIMODEM agora tem Discagem 
Automatica (dispensa o uso do aparelho telefonico) 



l^D C=D=D[r=u=D 



TELCOM INFORMATICA LTDA. 

Rua Anita Garibaldi, 1.700 
CEP 90430 - 
PORTO ALEGRE -RS 
Telefone: (0512)41-9871 



MSX SOFT INFORMATICA(RJ) 

Fone: (021) 2340775 

Nasa Compuladores (SP) Fone (01 1 ) 9142266 

The Lucky Man (BA) Fone (071) 3595S99 

Pritica Pro), e Assisl. Tec. Llda. (SO Fone 

(0482) 220819 

e lojas eapeciahzadas em MSX 
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Desejo corrcspondcr-mc com pessoas intcressadas cm trocar dicas 

c macetcs de programagSo em Basic, Assembler e, principalmente, 

sobrc "C". 

ALEXANDRE CARDOSO DULLIUS 

RUA LINDOLFO COLLOR 111 

CENTRO 

93800 - SAPIRANGA - RS 



... Aproveilo a oporiunidade paradesejar-lhes muito sucesso 
com a revista "CPU", de excclente qualidade, feita por pessoas que 
conhcccm o cquipamenlo e que se propoem a escrever. 

Como usuario do MSX, gostaria que, se possi'vel, me fossem 
esclarecidas algumas diividas. 

Possuo urn drive Microsol DRX 360 com interface CDX2 

- E possi'vel retirar a fonte, colocando-a separada, pois seu 
aquecimento 6 excessivo? 

- A ligacao da interface 6 algo assim escabroso, pois a mes- 
ma n3o tern saida na caixa do drive, ficando o cabo dobra- 
do com saida lateral ou relo passando por cima da fonte e 
correndo o risco de ser cortado pela caixa. Sera" que liguei 
errado? 

- O comando VERIFY ON/OFF esta sempre ativado ou tern 
que ser reativado a cada operac3o? 

- E possi'vel a instalacSo de um led para saber quando esUi 
ligada? 

Meu equipamento 6 o seguinte: Micro Hot Bit - Drive DRX 
360 DD e Interface CDX 2 

Sem mais para o momcnto, agradcco pela atencao dispen- 
sada e subscrevo-me, 

SERGIO LUIZ RUIZ SOLER 
RUA DO CORTUME 625 BL C 4 
AGUA BRANCA 
05065 - SAO PAULO - SP 

Enviamos sua correspondcncia a Microsol que nos enviou a 
seguinte resposta: 

Com relacao a carta acima cilada, informamos que: 

Realmente, este aquecimento n3o 6 caracteristico da fonte. 
Caso seja do seu interesse, V. Sa. podera cnvia-la para manutencao, 
sem quaisquer 6nus. Somente as despcsas de frete serao de sua 
responsabilidade. 

A ligacao do cabo requer a abertura do gabinete. Essa foi uma 
medida encontrada para que o preco fosse mais acessivel. En- 
tretanto, o drive possui uma depressao entre o gabinete c o acionador 
que pcrmile a passagem do cabo, sem maiores problcmas. 

O comando verify encontra-se na p&gina 99, do li vro Sistema 
de Disco para MSX, que segue em anexo, para maiores csclarcci- 
mentos. 

Cordialmente, 
NAGILA LOPES 
DEPTO DE COMUNICACAO 
MICROSOL TECNOLOGIA LTDA. 
RUA ALMIRANTE RUFINO 779 
VILA UNIAO 
60420 - FORTALEZA - CE 



... Quanto as vdrias diividas de vossos leitores sobre a 
transformafao do MSX 2, repasso aqui respostas a todas as cartas dc 
uma s6 vez, mas sem responder a uma de cada vez, ja" que s3o muitas 
cartas e muitas diividas. Acredito que assim, poderao poder dar um 
atendimento maior a todos os vossos leitores de uma sd vez. 
Preco da transformacao: US$ 400 
Preco do cartucho MegaRAM: USS 200 
Prazo de entrega: +/- 30 dias 
Prazo de garantia: 90 dias 

Varias outras diividas n3o me senti capacitado em responder, 
j& que se tratam de consultas que, a meu ver, devem ser feitas di- 
retamente e particularmcnic ao Ademir, tais como: precos de 
servicos especiais, se 6 possi'vel viajar ate" Sao Paulo chegando pela 
manha c levando o micro de tarde, etc, etc. 

PEDRO HENRIQUE GAMA 
CAIXA POSTAL 94368 
25800 TRES RIOS - RJ 



Possuo um MSX ha algum tempo e, lendo um exemplar da 
revista CPU de niimero 3 achei, de muito boa qualidade os assunlos, 
artigos e programas publicados. So fiquei um pouco decepcionado 
de n3o encontrar a sec3o de dicas de mil vidas na revista de niimero 
5 e acho que n3o fui s6 eu que fiquei assim. 

Se possivel, gostaria dc sugerir que fossem publicados 
coment^rios, mapas, dicas, macetes e truques dc jogos, para que o 
usuario consiga concluir o jogo. A meu ver, os leitores n3o se 
interessam so por programas complexos. Existem os aficionados 
por jogos e tenho certeza que n3o s3o poucos. Com esse espaco a 
revista so tern a ganhar. 

Gostaria de saber se ha condic6es de receber as rcvistas de 
niimero 1 e2pelocorreio,paraqueaminhacolccaofiquecompleta. 

Deixando um forte abraco, desejo-lhcs um Ano Novo com 
muito sucesso. 

SERGIO LUIS CESAR 

BECO AUGUSTO DOS ANJOS 25 

21710 - PADRE MIGUEL - RJ . 



Realmente voce tern razao. No niimero 5 nos discuidamos 
um pouco com a parte de jogos, principalmente no que se refcre a 
sec3o de dicas de mil vidas. N3o acreditavamos que esta secao 
cstivesse fazendo tanto sucesso. Estamos incrementando a parte de 
jogos e ja" neste niimero podera ser notada a diferenca. 

Com relacao aos niimeros atrasados, informamos que o 
niimero 2 encontra-se esgotado. O niimero 1 podera ser solicitado 
pelo correio, assim como os demais, medianlc o envio de cheque 
nominal, ou vale postal, pagavel a agenda Copacabana, no valor do 
custo do niimero que se encontra nas bancas. 



PAY LOAD 



PAY LOAD e urn jogosensacional, onde voce tem que dirigir um 
caminhao pelas estradas do Japao . Neste artigo, fornecemos os 
comandos do jogo e alguns macetes que irao torna-lo um 
excelente motorista. 



LUIZ FERNANDO FIACORDI 
PAULISOFT INFORM ATICA 



- Para iniciar, pressione a tecla F2. 

- Para movimenlar o caminhao pelas ruas, pressione as seias dircila c csqucrda ou use o joystick. 

- Para acelerar, pressione a barra de espa^o ou o botao do joystick. 

- Para brecar, pressione shift ou graph ou code ou caps ou ainda o botao do joystick. 

- Para mudar as marchas, pressione as setas para cima e baixo ou joystick. 

- Para gravar ou carrcgar, prcsione STOP, ou seja, quando voce jacsu'vercansadodejogar, mas quiserconlinuaroutrahora do mesmo 
lugar que parou, basta prcssionar STOP, escolher a opcao SAVE cprcssionar abarradeespacos>. 

Agora, se voce quiser carrcgar o jogo do lugar que parou, proceda da mesma forma. Somente pressione STOP apos comccar o jogo. 

Escolha a opcao LOAD e pressione barra de espa^o. N3o se esqueca de pressionar a tecla PLAY do gravador. 

Obs: Os comandos SAVE e LOAD, mencionados antcriormente, s6 podem ser ulilizados para gravar em fita cassete. 



INFORMATION BOARD 1 



FUEL 5 



FATIGUE 2 LP 3 POINT 4 



000 % 



15 



020.000 



TIME /LIMIT 6 
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08:00 
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VOCE 


-0 


K 
N 

D 


SPEED 7 


000 KM 


TRIP 8 


0000OO 



COMANDOS 



1 - INFORMATION BOARD (in(orma<;ao de bordo) 

Aparece escrito os varies tipos de informacoes que ir3o lhe 
interessar, como, por exemplo, por que motivo e quanto dinheiro 
perdeu ao ser multado. 

2 - FATIGUE (cansa?o) 

Indica o ni'vel de cansago do motorista. Quando cssa porccn- 
tagem ultrapassar 100%, procure um DRIVE-IN. Chegando la, 
estacionc scu caminhao cm cima da faixa cscrita TTC. Compre um 
"MEAL" (refeicao) c um "COFFEE" (cafd). Caso voce n3o proceda 
desta forma, o motorista ficara l3o cansado que n3o conseguira 
dirigir direito, ou seja, n3o vai obedecer aos seus comandos. 

3 - LP (numero de iiif'nicoes que se pode cometer) 

Inicialmentc, voce comeca com 15 c, conformc for multado, 
batendo, o numero ira abaixando. Caso cheguc a zero, sua licenca 
sera cancelada. 

4 - POINT (Pontos) 

Indica o numero de pontos que voce tem. No ini'cio, voce comeca 
com 20 mil pontos. Esses pontos servem para voce comprar comida, 
combusti'vel, pegas para o caminhao, etc. 

5 - FUEL (Combusti'vel) 

Indicadordc combusti'vel. Caso a faixa vermelhachegueaofim, 
o jogo acabara por falla de combusti'vel. Para enchcr o tanque, 
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proceda da scguinte forma: procure um poslo de gasolina (de 
preferencia nas cidades, pois no campo n3o ha posto), estacione em 
cima da faixa onde esui escrito TTC. O tanque sera reabastecido, 
bastando, para isso, que voce n3o saia de cima da faixa. Enquanto 
seus pontos cstiverem sendo descontados, seu tanque estara sendo 
abastccido. 

6 - TIME/LIMIT (tempo limite) 

Existcm dois rel6gios marcando as horas. O rel6gio superior 
marca as horas do dia, sendo que, inicialmente, mostrara 8 horas da 
manha. Quando chegar as 19 horas, escurccc, so amanhecendo 
novamente as 6 horas da manha. O rcl6gio inferior indica o tempo 
que lhe falta para entregar o carregamento. Porianto, n3o se atrase, 
pois caso isto aconteca, sera desconlado do scu pagamento. 

7 - SPEED (velocidade) 

Indica a velocidade do caminhao. 

8 - TRIP (giro) 

Indica os quilometros rodados pclo caminhao. 

9 - RND (marchas) 

R para r6, N para neutro, e D para a frente. 

10 - MAPA DO JAPAO 

O ponto branco indica a sua localizac3o. Caso aceite algum cm- 
prego, aparecera um ponto vcrmelho, que sera o scu destine 



FICHA DE TRABALHO 



1 1 Current Location: Hokkaido 

12 Assignmet: Hokkaido Nigata 

13 Load: Cow 

14 Load Wight: 0047t 

15 Delivery Time Limit: 05' 48" 

16 Distance: 1300 Km 

17 Payment: 13160 pts 

18 Accept? YES NO 



A ficha de trabalho e obtida no "WORK" de cada cidade, rural 
ou urbana. 

11 - CURRENT LOCATION (local atual) 

Indica em que lugar voce estd. De acordo com o exemplo acima, 
voce estd em Hokkaido. 

12 - ASSIGNMENT (destino) 

Indica a cidade que voce estd e a seguir o seu destino, ou seja, o 
lugar para onde deve levar o carregamento. 

13 - LOAD (carga) 

Indica o que vocS ird carregar. De acordo com o exemplo, vocS 
levari uma carga de vacas. 

14 - LOAD WEIGHT (peso da carga) 

Indica o peso do carregamento. Cuidado, pois quando o peso 
exceder, voce podera tomar uma ou vdrias multas. 

15 - DELIVERY TIME LIMIT (tempo limite de entrega) 
Indica o tempo que voce tern para chegar ao seu destino com a 

carga. 

16 - DISTANCE (distancia) 

Indica a distancia do lugar atual ate" o destino desejado. 

17 - PAYMENT (pagamento) 

Indica quanto voce ganhard com essa encomenda. E o mais 
importante de todos. Por isso, nao se preocupe com carregamentos 
de baixo pagamento, pois a viagem podera sair mais cara do que 
vocS pensa. 

18 - ACCEPT (aceite) 

Se voce aceitar o emprego, ponha a maozinha no YES, caso 
contrdrio, ponha no NO. N3o se esque?a de, ap6s escolher sua 
opcao, pressionar a barra de espacos. 



TIPOS DE MULTAS 



- Ultrapassar o sinal vermelho 

- Ultrapassar o limite de velocidadc 

- Ultrapassr o limite de carga 

- Advertencia 

- Dirigir bebado 

- Dirigir na contra-mao 



Os dois ultimos tipos de multa s3o os piores, pois sua carteira de 
motorista serd apreendida, dando fim ao jogo. Os policiais que lhe 
poderao aplicar essas multas usam carros brancos, sendo que 
tamb6m existem radares espalhados pelas ruas das cidades. 
HIGHWAY (RODOVIAS) 

Servem para que voce chegue mais rdpido aos lugares. Voce 
poderd pegar uma rodovia de Hokkaido e poderd ir para Aomori, 
Miyagi, Tochigi, Tokyo, Shizuoka, Aichi, Oosaka, Hiroshima, 
Fukuoka ou vice-versa. Para tal, voce terd que pagar um peddgio, 
referente a rodovia que escolher. 

Nas rodovias serd sempre claro, ou seja, nunca havera noite. 
WORK (TRABALHO) 

Quando voce quiser um emprego, basta encontrar um WORK, 
estacionar na faixa TTC. Aparecerd uma ficha, com todos os 
detalhes. Para aceitar uma encomenda, basta escolher o YES e partir 
para o local determinado. Assim que voce chegar no local deter- 
minado, leve o carregamento at6 o WORK. 



GS (POSTO DE GASOLINA) 

Para encher o tanque, basta posicionar o caminhao em cima da 
faixa escrita TTC. 

N3o existem postos de gasolina nas cidades rurais. 
DRIVE-IN 

Pare em cima da faixa TTC. Aparecerd um MENU de opcOes, 
com o seguinte: 
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BEER 


1000 pts 


20 


MEAL 


2000 pts 


21 


COFFE 


500 pts 


22 


EXIT 




•veja 







19 - BEER (cerveja) 

De vez em quando, 6 sempre bom tomar uma lourinha. Mas 
tome cuidado para n3o dirigir bebado, pois sua licenca podera ser 
cancelada. 

20 - MEAL (refeicao) 

Como voce viaja o dia inteiro e nunca para, o motorista sente 
fome. Portanto, se voce n3o alimentd-lo direito, ele Heard tao 
cansado que n3o obedecera a seus comandos. 
Obs: O cansaco do motorista 6 medido pelo FATIGUE. 

21 - COFFEE (cafe) 

E muito bom durante a noite, mas tamb6m n3o podemos dis- 
pensd-lo durante o dia. 

Obs: Tome sempre um caf6 ap6s as refeicoes. Com isso, o indicador 
de FATIGUE aumentard lentamente. 

22 • Exit (saida) 
Volta ao jogo. 

PARTS TUNE (OFICINA MECANICA) 

Pare em cima da faixa TTC. Aparecerd um menu de opefles, com 
o seguinte: 
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GASTANK 


10000 pts 


24 


TURBO 


100000 pts 


25 


RADIO 


30000 pts 


'26 


RADER 


15000 pts 


27 


LIGHT 


5000 pts 


28 


EXIT 





23 - GASTANK (tanque reserva de combustivel) 

E de grande utilidade, pois assim voce n3o se preocupa tanto em 
ficar enchendo o tanque. Cada GASTANK custa 10000 pts. Dd para 
comprar at6 2 tanques de reserva. 

24 - TURBO (turbo) 

Tamb6m 6 de grande utilidade, pois aumenta sua velocidade. 
Cada TURBO custa 1 00000 pts. Podem ser comprados at6 2 turbos. 

25 - RADIO (radio) 

N3o tern muita utilidade. Para fazer funcionar o rddio, pressionc 
a letra "T". Cada rddio custa 30Q00 pts, sendo que somente um pode 
ser comprado. 

26 - RADER (radar) 

Protege seu caminhao de quase todos os radares. Apenas um 
pode ser comprado. 

27 ■ LIGHT (luz) 

De grande utilidade durante a noite, aumentando sua visao, po- 
dendo ser comprado um farol por vez. 

28 - EXIT (saida) 

Obs: Voc6 estd sujeito, a qualquer hora do jogo, a perder alguma 
dessas pe?as. 



Luiz Fernando Fiacordi, 16, cursa o 3 s colegial em Sao Paulo, 
com curso de basic e Ingles, trabalhando, atualmente, com 
entusiasmo, na Paulisoft. 
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ESTRADAS DO JAPAO 



SHIMANE 



TOTTORI 



YAMAGUCHI HIROSHIMA 



SAGA 



OKAYAMA HYOUGO | KYOUTO 



FUKUI 



FUKUOKA 



EHIMEl 



KAGAWA 



IKUMAMOTO 



KOUCHI 



TOKUSHIMA 



OOSAKA 



WAKAYAMA 
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p ^ ^ 

NAGASAKI KAGOSHIMA MIYAZAKI 
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TABELA DE PRECOS DAS EST 


HOKKAIDO 


5400 


4800 


4200 


3600 


3000 


2400 


1800 


AOMORI 


4800 


4200 


3600 


3000 


2400 


1800 


1200 


MIYAGI 


4200 


3600 


3000 


2400 


1800 


1200 


600 


TOCHIGII 


3600 


3000 


2400 


1800 


1200 


600 


SAIDA 


TOKYO 


3000 


2400 


1800 


1200 


600 


SAIDA 


600 


SHIZUOKA 


2400 


1800 


1200 


600 


SAIDA 


600 


1200 


AICHI 


1800 


1200 


600 


SAIDA 


600 


1200 


1800 


OOSAKA 


1200 


600 


SAIDA 


600 


1200 


1800 


2400 


HIROSHIMA 


600 


SAIDA 


600 


1200 


1800 


2400 


3000 


FUKUOKA 


SAIDA 


600 


1200 


1800 


2400 


3000 


3600 




FUKUOKA 


HIROSHIMA 


OOSAKA 


AICHI 


SHIZUOKA 


TOKYO 


TOCHIGI 



HOKKAIDO 



• AOMORI 



MIE 



ISHIKAWA 



1 GIFU ' 



AICHI 



TOYAMA 



NAGANO! 



YAMANASHI 



SHIZUOKA 



AKITA 



YAMAGATA 



Nil G ATA 



I GUNMA 



SAITAMA 



TOKYO 



KANAGAWA 



IWATE I 
• MIYAGI 



FUKUSHIMA 




TOCHIGI 



IBARAGI 



CHIBA 



RADAS 


1200 


600 


SAIDA 


600 


SAIDA 


600 


SAIDA 


600 


1200 


600 


1200 


1800 


1200 


1800 


2400 


1800 


2400 


3000 


2400 


3000 


3600 


3000 


3600 


4200 


3600 


4200 


4800 


4200 


4800 


5400 


MIYAGI 


AOMORI 


HOKKAIDO 
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UM DOS 4 LUGARES ONDE PODE SER 
INICIADO O JOGO E QUE PODE SER 
IPENTIF1CADO POR: 

1- PIRAMIDEAZUL 

2- PROJETIL VERDE 

3- CONE LI LAS 

4- QUADRADOS AZUIS 
TV- VALVULA TERMO MOLECULAR 
CC- CAMARA CRIOGENICA CONTROLE 

DIRECIONAL ROBODROIDE 




LADNpAIHEN'ro 

FAST! COPY COPIADOR ULTRA-RAPIDO 

DE DISCOS 



MSX IE3H: 



MSB MSX 



-DRIVES- 



Forite ; A -+ h : Pest- i no 



0123456799 6 1234 5678961234567696123456799 

Copiador de discos ult-r a -r -eipido 

para contro 1 ador -as padrao HioroSol. 
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usuario dc MSX com um drive sofre alguns problemas para 
produzir cdpias de scus programas, principalmente quando seus 
discos estao cheios, pois o tempo gasto e o numero de trocas 
necessarias desanimam qualquer um. Sem duvida, o comando do 
sistema operational mais ulilizado depois do DIR e o COPY *.* e 
o usuario sabe bem como sofre com esse comando, aid sonhando 
com a oportunidade de, um dia, comprar um segundo drive, dia este 
que, para muitos, dificilmente chegara. 

A PAULISOFT Informatica, dentro de uma nova filosofia de 
inccntivo ao software original e nacional, como dcmonstrou com o 
lancamcnto do EDTRONIC c do SPRITE MAKER, cstii lancando 
agora o FAST! COPY, de autoria de Gilberto Moreira Martins e 
Rubens Henrique Kiihl Jr., que vcm para auxiliaro usuario a agilizar 
suas copias. Como o nome dcixa claro, e o subtitulo "copiador ullra- 
rapido" enfatiza, este utilitario nada mais 6 do que um copiador de 
setores como os muitos que ja" existem, so que extremamente r£pido 
e necessitando um numero muito menor de trocas de discos. 

O programa 6 distribufdo somente em disco, uma vez que o 
mesmo foi produzido para scr executado a partir do sistema opcra- 
cional, bastando digitar FASTI COPY nalinhade comando. Apesar 
da facilidade de uso c dc todos os comandos serem complementa- 
dos por mensagens explicativas, o programa vem acompanhado por 
um manual iluslrado e simples. Contdm algumas informacoes 
tecnicas muito boas a respeito do programa, como o fato dele 
armazenar parte dos dados lidos do disco, durante a c6pia, na 
VRAM, utilizando praticamente toda a memoria do micro. Desta 
forma, ele consegue realizar uma c6pia com apenas 9 trocas de 
discos, enquanto que os programas concorrenlcs mais prdximos 
necessitam de 16. 

Sua aprcscntacao graTica lembra um pouco o LOCKSMITH do 
Apple, onde um cursor vai varrendo uma regiao da tela conforme as 
trilhas e os lados v3o sendo lidos ou gravados, pcrmitindo que o 
usuario possa monitorar sua copia. Possui boas indicacdes de erros 
dc leilura ou de gravacSo, alem de avisar se o disco csta" com sclo dc 
protccao impedindo a gravacao, acompanhados sempre de "beeps" 
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de tons diferentes. Possui tambem o recurso da tecla ESC, que 
permite interromper a leitura ou gravacao a qualquer momento. 
Intcressante 6 o reconhecimento dos drives pelo pr6prio programa, 
so admitindo drives fisicamentc concctados ao micro e n3o aprcscn- 
tando mensagens do tipo "insira disquele como drive B:". 

O programa tambem apresenta algumas rcslricdes, como exigir 
que o disco destino esteja previamente formatado e numa 
formatacao padrao. Nada de discos travados. Essas restricSes s3o 
normais c tambdm estao presentes em outros programas do genero. 
Porem, existe uma restri^ao mais importantc, que limita o numero 
de usuarios deste programa, que 6 o fato de so funcionar em 
controladoras do padrao Microsol, de forma que os usuanos dc 
controladoras da Sharp e dc 3 1/2" terao de aguardar novas vcrsOcs 
que estao sendo prometidas. 

A seguir temos um graTico comparativo do tempo de c6pia dc 
diversos programas similares existentes no mcrcado, tanto para 
MSX como para PC, sendo que estes ultimos podem ser usados por 
quern tern acesso ao PC. Para MSX foram testados todos os pro- 
gramas conhecidos que realizam a cdpia de forma semelhante, tanto 
para um drive quanto para dois. Um detalhe a ser observado e que 
para obtencao do tempo para um drive tentamos eliminar o fato do 
tempo de troca do disco ser diferente de usuario para usuario. Para 
isso, ao cxecutarmos o teste, n3o trocamos o disco quando era 
pedido, mas simplesmentc respondiamos ao pedido, eliminando, 
assim, o tempo gasto com a troca. No final, foi computado o niimcro 
de trocas necessarias e acrescido ao tempo de c6pia o tempo de 7 
segundos por troca, que, segundo nossos calculos, seria o tempo 
mddio estimado para uma troca normal de discos. 

A parur deste graTico, podemos tirar as seguintes conclusfies: 

a) O FAST! COPY com um drive 6 4 vezes mais rapido que o 

segundo colocado na linha MSX e 7 vezes mais rapido que 
o mesmo programa com dois drives. 

b) O numero dc c6pias & quasc a mctadc das cxigidas pclo 
segundo colocado (15 contra 9). 

c) O FAST! COPY, rodando num MSX com 64Kb de RAM e 16 



Kb de VRAM, com um clock de 3,58 MHZ 6 cerca de 1 ,5 
vczes mais rapido do que os programas que rodam em PC 
com 256 Kb de RAM e clock de 4,77 MHZ. 

d) Somente o DISKCOPY do PC com 1 drive consegue ser mais 
rSpido que o FASTCOPY, mesmo assim em apenas 7 segun- 
dos. 

e) Pela difcrenca entre o tempo gasto para c6pia com 1 e com 2 
drives, conclui-se que se perde mais tempo na Iroca dc disco 
num sistema de apenas um drive do que com a c6piapropria- 
mente. 

A unica vantagem verificada nos outros programas semelhan- 
tes tesiados, com excessao do PRO KIT ZAPPER, 6 o fato de 
funcionarem com outras controladoras. 

Muitos tern dito que programas como o FASTICOPY sao 
incentivadores da pirataria, por pcrmitirem a copia de programas de 



forma indiscriminada. Porem, deve ficar claro que o FASTICOPY 
nao faz nada a mais do que os outros copiadores de setores nao 
facam, apenas agilizando o trabalho e, como todos os outros, seu 
objetivo 6 de auxiliar o usuario a poder mantcr copias dc seguranca 
de seus discos, protegendo-os dos imprcvistos que rodeiam o mundo 
da inform£tica e que sua utilizacao para a producao dc c6pias ilicitas 
6 de responsabilidade de cada usuario. 



Produto: 


Fast Copy! 


Autores: 
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PROKTT ZAPPER 1.0 
DISKIT 2.0 

COPY *.*B:0 bytes livres 

COPYDISK 1.2 Nemesis 

COPIED Solxdos 1.2 

DISKCOPY Dos Tools 

PCTOOLS A3.23 

* 

LOCKSMITH-PC 1.3 
* 
DISKCOPY PC 

» 

FAST COPY 



Tabela Comparativa de Tempo de Copia 
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* PX XT 4.77 MhZ 256 kb PC-DOS 2.1 NT=Numero de trocas. RV=Relacao de 
velocidade. Tempo medio de 7 s. para cada troca. 
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ONDE E POSSlVEL ENCONTRAR TUDO PARA SEU 
MSX- 1, MSX- 2 E MEGA RAM. 



m^o-computaqopes f P^FEmco* TEMOS ASSISTENCIA T^CNICA PR6PRIA, 

E UMA SUPER LOJA ONDE VOCE ENCONTRA TUDOO QUE QUIZER PARA SEU MSX. 

TAMBEM TEMOS UMA SUPER SOFTHOUSE COM GRANDE QUANTIDADE DE JOGOS E APLICATIVOS. 

ATUAMOS TAMBEM NA AREA PROFISSIONAL (DESENVOLVIMENTO DE SISTEMAS), 

TEMOS UMA EQUIPE X1VEM A SUA DISPOSIQAO PARA DAR ACESSORIA QUE VOCE MERECE. 

AGORA QUE VOCE JA CONHECE UM POUCO DO NOSSO SISTEMA, ASSOCIE-SE AO CLUBE DO "MSX" ENTRANDO 

EM CONTATO CONOSCO PELO FONE (01 1) 436-0331 . RUA RANGEL PEST ANA, 950, CEP 13200, JUNDIAI, SP. 
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SISTEMA OPERACIONAL BKP DISCO 



sistHHa nperationai 
pur i Julia VeUoso 



BKP disc: 
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earn 
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A grande maioria dos usuarios da linha MSX que tra- 
balhouou trabalhacom fita casscte,j<iulilizouo programa BKP.que 
vem a ser uma ferramenta que permite ao usuario efeluar c6pias de 
seguranca dos programas gravados em fita, mesmo que origi- 
nalmente eles tenham sido gravados com protecao. 

Na 6poca do lancamento do BKP para fita, n3o cxistia no 
Brasil uma lei que regulamentasse a produc3o e venda de software 
para computador e o BKP foi vendido livremente, tendo sido, com 
certeza, urn dos campeOes de venda algum tempo atras. 

Mesmo sem ter tido o seu trabalho recompensado, o autor 
do BKP lancou a versao deste programa para disco e deixou a cargo 
da Paulisoft, softhouse de S3o Paulo que comercializa, entre outros 
tftulos, o Edtronic e o MSX Turbo a venda do Sistema Operacional 
BKP de Disco, que tambem podera ser encontrado em outras 
SOFTHOUSES, a exemplo do que acontece com todos os produtos 
da PAULISOFT. 
Mas o que vem a ser o Sistema Operacional BKP Disco? 

O BKP Disco cum 
sofisticado sistema de cdpia 
e edicao, formado de 12 
comandos que perm item ao 
usuario trabalhar com a 
unidade disco de uma forma 
mais facil e segura. 

Os 12 comandos 
do BKP Disco permitem 
produzir copias de 
seguranca de discos, mesmo 
que estes possuam protecao 
contra c6pia, manter urn ar- 
quivo de programas, ou seja, 
uma lista geral de todos os 
programas ou arquivos que 
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o usuario possua, facilitando, desta forma, a sua localizacao, cdpia 
ou edicao, ordenar o diretdrio, restaurar um arquivo que tenha sido 
apagado acidentalemnte ou que tenha tido algum problema na 
grava?ao, efetuar pequenas alteracfles em arquivos, possuindo, 
portanto, a fun§3o Zapper e diversas outras. 

O programa 6 composto de um programa principal 
(BKP.COM), que tern a func^ao de carregar e executar os demais 
mddulos que compoem o menu principal. 

O BKP disco possui tres tabelas de caracteres, sendo que 
o usuario devera selecionar uma delas, dependendo do computador 
e versao udlizados (Expert 1 . 1 ou 1 .0 e Hotbil), permitindo tambem 
a operacao com cariao de 80 colunas. 

O manual que acompanha o soft 6 bastante detalhado, n3o 
deixando o usuario com duvidas sobre a operacao do programa, 
tendo tabela dc mensagens de erro e um glossario de termos. 



Conclusao: 

O Sistema Operacional BKP 
de Disco aprcscnta iniimeras 
vantagens, tanto para os 
usuarios de ni'vel mais 
avancado como para aqueles 
que n3o ir3o utilizar todas as 
suas facilidades, como a de 
alterar arquivos gravados no 
disco. Uma vez que o usuario 
comece a trabalhar com o 
programa, absorvendo todos 
os seus comandos e maneira 
de trabalhar, ficara dificil 
operar com outros sistemas 
mais lentos e, de certa forma, 
mais complicados. 
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Nossos livros podem ser encontrados em livrarias e lojas de computacSo. Se oseu livreiro ou 
tomecedor habitual nao os tiver disponfveis, entre em conlato tMnosco pelo telefone (011) 843-3202. 

Se voce nao esiA recebendo seu boletim gratuitamente pelo correio, ou tern algum amigo que 
gostaria de recebe-lo, nao deixe de enviar o cupom abaixo a EDITORA ALEPH - C.P. 20707 • CEP: 
01498 - SAO PAULO-SP. 

NOME: 

END.: 

CEP: CIDADE: UF: 

TEL: ( ) MICRO(S) QUE POSSUI: 
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A MELHOR E MAIS BEM APARELHADA SOFTHOUSE DO RIO DE JANEIRO, 

AGORA EM NOVAS INSTALAQOES, COLOCA A SUA DISPOSIQAO 

A MAIS COMPLETA LINHA DE PRODUTOS PARA O SEU MSX! 



VOCE SO TEM A GANHAR ! 




SAO MAIS DE 2.000 PROGRAMAS A SUA DISPOSICAO. COM GRAVACAO 

PROFISSIONAL GARANTIDA. 
DRIVES. INTERFACES, EXPANSORES. PLACAS. MODEMS, GABINETES, ETC. 
LIVROS E REVISTAS ESPECIALIZADOS. 

E MAIS ! 

AGORA VOCE CONTARA TAMBEM COM A EXCLUSIVIDADE DO ... 

NEWSOFT INFOCARD, 

O CARTAO QUE ESTA REVOLUCIONANDO O 

MERCADO DE INFORMATICA ! 
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NAO PERCA TEMPO ! * INFORMATICA • 

Visite SHOW ROOM no Av. NILO PEQANHA n 9 50 sola 906, 

Ed.RodoIfo de Paoli, CEP 20020, bem no centra do RIO (Largo da Carioca) 



